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Details  Of  RLL-1 


This  paper  includes  many  implementation  level  details  about  the  RLL-1  system,  described  in  a 
companion  paper,  $RLL-1:  A  Representation  Language  Languages  (Heuristic  Programming  Project 
Working  Paper  HPP-80-9,  October  1980,  at  Stanford  University,  by  Russell  Greiner). 
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Appendix  E  Special  Units 

Many  RLL-1  units  are  directly  used  by  one  or  more  of  the  RLL-1  functions  listed 
below.  These  special  ones  are  enumerated  below,  following  a  depth  first  traversal  of  the 
RLL-1  Knowledge  Base.  Diagram  #1  portrays  a  skeleton  of  this  hierarchy,  showing  the 
subset  relations  joining  these  various  classes. 


E.1:  Naming  Conventions. 


Any***  -  refers  to  the  class  of  all  ***  objects  [e.g.  AnySlot  refers  to  slots] 

Typical***  •  refers  to  the  abstract  object  which  typifies  members  of  Any*** 

F***  -  refers  to  a  format  {e.g.  FSingleton) 

I***  •  refers  to  inheritance  type  {e.g.  IExamples] 

My***  -  is  a  syntactic  slot,  [e.g.  MyCreator] 

•♦•-Instances  -  holds  value  of  syntactic  slot,  My***,  to  be  inherited. 

-  This  ***-Instances  slot  appears  in  Typical —  units 
Ail***s  -  refers  to  extension  of  ***  i\ol  [e.g.  AUIsas  extends  Isa] 

***Type  -  refers  to  a  datatype,  [e.g.  IntegerType] 

FnFor***  •  the  value  of  this  slot  is  a  function,  [e.g.  ForForGetiingj 

To***  -  the  value  of  this  slot  is  a  function, ... 

•••Value  •  the  value  of  this  slot  refers  to  slot  (as  opposed  to  a  field) 

•••Field  -  the  value  of  this  slot  refers  to  field  (currently  not  used) 


E.2t  Legend. 

This  RLL-1  Knowledge  Base  is  organised  into  classes,  which  each  contain  a  set  of 
elements.  Associated  with  each  such  class  of  units  is  a  list  of  slots,  which  are  meaningful 
for  elements  of  this  class.  For  example,  the  Datatype  slot  makes  sense  for  any  function; 
but  is  meaningless  for,  say,  people. 

Each  entry  is  Section  E.3  will  describe  a  elass  of  units;  including  relevant  features 
of  the  members  of  this  class,  and  the  list  of  slots  defined  for  each  member.  The  format 
used  will  be: 

Class  Name  (;)  •  A  short  description  of  what  the  class  Class  Name  represents. 
Superclass:  {Important  immediate  supersets  of  this  class} 

Subclass:  {Important  immediate  subsets  of  this  class) 

There  are  currently  n  examples. 
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Direct  Examples:  {Important  examples  of  this  class} 

The  following  iloti  are  defined  for  all  "members  of  Clast  Name”*; 
tlot i  -  (sloti's  range]  A  short  description  of  sloti. 

Inverse:  sloti’s  inverse 

HLDefn:  sloti's  high  level  definition 

ArgList:  »*i.  •••  "S* t 

• 

elotn  -  [sloth’s  range]  A  short  description  of  slot*. 

Inverse:  sloth’s  inverse 

HLDefn:  sloth’s  high  level  definition 

ArgList:  args,  arga, ...  arg mn 

We  view  a  slot  as  a  function,  which  maps  a  unit  onto  some  value.  The  ”slot<’s 
range”  field  above  encodes  the  space  of  permissible  values  the  iloti  of  any  unit  majr 
take.  There  are  several  basic  categories  of  slots,  each  with  its  own  type  of  range.  When 
Range  is  FunctionType,  it  is  relevant  to  know  what  slot/s  HighLevelDefinition,  and 
ArgLiit  is  -  otherwise  these  slots  are  not  even  well  defined.  Similarly,  unless  Range  is 
UnitType,  it  is  not  possible  for  Slot<  to  have  an  inverse. 

Subsection  E.4  will  provide  an  index  to  the  units  presented  in  Section  E.3,  using 
the  sequential  numbers  assigned  to  each  class.  Each  class  will  refer  to  that  number,  and 
each  slot  will  point  to  the  number  associated  with  the  class  to  which  is  affiliated. 


E.3:  Aetual  Units. 

Anything  (i)  -  The  topmost  node,  in  all  the  hierarchies. 

Subclass:  AnyAT&U  AnyAbstractThing  AnyCT&U  AnyConcreteThing  AnyFocus 

AnyUnit 

Direct  Examples:  AnyClassOfObjects 

The  following  iloti  are  defined  for  all  "thing 
ha  -  [FSet  (UnitType  (*P  AnyClassOfObjects))}  This  primitive  slot  is  the  fundamental 
hierarchical  link  in  this  system,  specifying  those  classes  to  which  this  unit  belongs. 
Note  that  its  format  is  SET  •  hence  this  system  can  handle  a  DAG  structure;  better 
for  our  purposes  than  a  tree. 

Inverse:  UnitExamples 

Charaeteriitiei  -  jFSet  NonNILType]  This  lists  tome  essential  characteristics  of  this 
unit.  (Not  currently  in  use.) 
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HighLevelDefn:  (Unioning  FunctionCharacter  FormatCharacter) 

Deter  -  (FSingleton  NonNILType]  This  describes  this  unit.  (It  it  used  to  generate  this 
document.) 

Alllsas  -  (FSet  UnitType]  This  specifies  each  clast  to  which  this  unit  belongs.  (It  includes 
each  Superclass  of  this  unit's  Isa  slot.  } 

Inverse:  AllExampiet 

HighLevelDefn:  (Composition  Superclass*  Ita) 

AllGenls  -  (FSet  UnitType]  This  points  to  a  list  of  those  units  which  are  somehow  more 
general  than  this  unit. 

Inverse:  AliSpees 

HighLevelDefn:  (Unioning  Prototypes  (On eO/  Superclass*  SuperTjrpEx*  SuperSlot* 
GenlAct*)) 

AllSpecs  -  (FSet  UnitType]  This  lists  every  unit  which  is  somehow  more  precise  than 
this  unit. 

Inverse:  AllGenls 

HighLevelDefn:  (Unioning  AHTypicalExampleOfs  (OneOf  Subclass*  SubTypEx*  SubSlot* 
SpecAct*)) 

Prototype s  -  |FSet  (UnitType  (*P  AnyArchetype))|  This  points  to  each  typical  example 
of  this  unit,  not  necessarily  in  order  of  increasing  generality. 

Inverse:  AllTypicalExampleOfs 

HighLevelDefn:  (Composition  TypicalExample  AJIIsas) 

Specialization s  -  (FSet  UnitType]  This  points  to  each  unit  which  "specialises”  this  unit. 

Inverse:  Generalisations 

HighLevelDefn:  (OneOf  SubSlot  SpecAct  SubTypEx  SubDT  Subclass) 

OrderedPrototypes  -  (FOrderedSet  UnitType]  Enumerates  the  prototypes  of  this  unit  in 
order  of  increasing  generality  (i.e.  TypicalDog  would  precede  TypicalAnimal  .) 
HighLevelDefn:  (PutlnOrder  Prototypes  SuperTypEx*  NIL  MembForOrdPro) 

a 

AnyAT&U  (2)  •  This  is  a  HACK  -  to  deal  with  the  units  in  this  system,  which  represent 
both  some  abstract  object  (NOT  in  the  world,)  and  themselves... 

Superclass:  Anything 

Subclass:  AnylntensionalObject  AnyPartialSpec 

The  slots  appropriate  for  ail  "AT&U"s  are  those  defined  for  each  of:  (  AnyUnit  AnyAbstractThing  ). 

AnylntensionalObject  (•?)  •  Descendants  of  this  unit  describe  some  entity  in  the  world 
intensionally  -  as  opposed  to  directly  referring  to  in. 

Superclass:  AnyAT&U  AnyCT&U 

Subclass:  AnyArchetype  AnyDescriptor  AnyUnitForSlot  AnyVariable 


•  '&■-  - 
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Any  Archetype  (4)  -  Every  typical  example  of  tome  clast  is  an  archetype,  and  descends 
from  this  unit. 

Superclass:  AnylntensionalObject 

There  are  currently  123  examples. 

The  following  slots  are  defined  for  all  "Archetype 

NewPoetibleSlott  -  [FSet  SlotTypej  This  lists  the  names  of  slots  which  are  meaningful 
for  every  “instance”  of  this  typical  example.  Furthermore,  this  is  the  highest  place 
where  this  slot  is  meaningful  (hence  the  “newness*  of  the  name.) 

Inverse:  MakesSenseFor 

HighLevelDefn:  (Composition  (Soften  NewPossibleSlots)  MyComposeOf) 

TypicalExampleOf  -  [FSingleton  (UnitType  (*P  AnyClassOfObjects)))  Refers  back, 
from  the  typical  example  unit,  to  the  class  of  elements  it  typifies. 

Inverse:  TypicalExample 

SuperTypEx  -  [FSet  UnitTypej  This  denotes  the  relation  connecting  TypicalDog  to 
TypicalAnimal  -  i.e.  a  superset  relation  holds  between  the  elements  each  (respectively) 
typifies. 

Inverse:  SubTypEx 

HighLevelDefn:  (Composition  TypicalExample  Superclass  TypicalExampleOf) 

SubTypEx  -  [FSet  UnitTypej  See  SuperTypEx  . 

Inverse:  SuperTypEx 

HighLevelDefn:  (Composition  TypicalExample  Subclass  TypicalExampleOf) 

PoetibleSlott  -  [FSet  UnitTypej  This  is  obsolete  -  and  will  soon  be  deleted. 
HighLevelDefn:  (Composition  NewPossibleSlots  SuperTypEx*) 

SuperTypEx*  -  [FSet  UnitTypej  This  is  the  transitive  closure  of  SuperTypEx  . 

Inverse:  SubTypEx* 

HighLevelDefn:  (Composition  TypicalExample  Superclass*  TypicalExampleOf) 

SubTypEx  *  -  [FSet  (UnitType  (*P  Any  Archetype))]  This  is  the  transitive  closure  of 
SubTypEx  . 

Inverse:  SuperTypEx* 

HighLevelDefn:  (Composition  TypicalExample  Subclass*  TypicalExampleOf) 

AnyDescriptor  ( 5 )  •  This  will  eventually  hold  descriptors  -  a  whole  class  of  entities  which 
will  have  to  be  defined... 

Superclass:  AnylntensionalObject 
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AnyUnitForSlot  (5)  •  At  timet,  there  it  more  than  juit  one  “morsel"  of  information 
needed  to  detcribe  the  value  of  tome  unit's  ilot.  RLL  then  devotee  an  entire  unit  to 
hold  thii  information.  Such  uniti  detcend  from  thii  AnyUnitForSlot* 

SuperCIatt:  AnylntemionalObject 

The  following  tlott  are  defined  for  all  'UnitForSlot "t: 

*v aLue*  -  (FSingleton  NonNILType]  When  a  unit  it  allocated  to  ttore  factt  about  the 
value  of  a  slot,  the  actual  value  of  that  slot,  if  any,  it  kept  in  the  *vaLue*  slot  of 
that  tub  unit. 

HighLevelDefn:  (Application  (Composition  Defn  LiveilnSlot)  LiveilnUnit) 

AnyVariable  (7)  -  This  clast  contains  the  universally  or  existentially  bound  variables. 

Note  that  this  it  a  META  description  of  said  units. 

Superclass:  AnylntemionalObject 

AnyPartialSpec  (<5)  -  This  class  includes  objects  which  are  only  partial  specified.  This 
is  essential  to  deal  with  MOLGEN  UNITs  package  notion  of  SPEC  inheritance  -  in 
which  some  object  is  specified  more  and  more  completely. 

Superclass:  AnyAT&U 

Subclass:  AnyGenericEvent 

The  following  tlott  are  defined  for  all  'PartialSpec'’*: 

MyRefineSlott  -  [FSet  SlotType]  The  value  of  U:MyRefineSlott  is  a  list  of  those  slots 
on  the  unit  U  which  are  used  to  specify  factt  which  are  not  definitional. 

AnyAbstractThing  (0)  -  Instances  refer  to  intangible  objects;  as  opposed  to  concrete 
things  (such  as  real  world  people  or  units) . 

Superclass:  Anything 

AnyCT&U  (10)  -  This  is  a  HACK  -  to  deal  with  the  units  in  this  system,  which  represent 
both  some  object  in  the  world,  and  themselves... 

Superclass:  Anything 

Subclass:  AnyCharacteristic  AnyClassOfObjects  AnyDecomposableObject  AnyEvent 

Anylnheritance  AnylntensionalObject  AnyOverhead  AnyProcess  AnyUnit 
AnyUser 

The  tlott  appropriate  for  all  ”CT&U"t  are  thote  defined  for  each  of:  (  AnyUnit  AnyConcreteThisg  ). 

AnyCharacteristic  (11)  -  This  fathers  units  which  describe  characteristics  of  some  entity 
-  as  opposed  to  something  which  actually  exists  in  and  of  itself. 

Superclass:  AnyCT&U 

Subclass:  AnyDatatype  AnyFormat 
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AnyDatatype  (12)  -  Every  datatype  (used  for  building  up  type  specifications, )  descends 
from  this. 

Superclass:  AnyCharacteristic 

Direct  Examples:  KBType  NonNILType  NumberType  BooleanType  UnrestrictedType 
FunctionType  SlotType  IntegerType  UnitType  StringType 
77»e  following  slots  are  defined  for  all  'Datatype”#: 

EqualDTSpec  -  (FSet  (FListN  (UnitType  (*P  AnyDatatype))  UnrestrictedType  )j  This 
helps  relate  one  datatype  to  another  -  by  defining  a  set  of  equivalent  datatype- 
datarange  pairs. 

VerifyType  -  [FSingleton  FunctionType]  DT:  VerifyType  is  a  predicate,  returning  nonNIL 
for  all  elements  which  qualify  in  this  datatype. 

GenerateAll  -  [FSingleton  FunctionType]  DT:GenerateAll  returns  a  list  of  all  members 
of  the  datatype,  DT  . 

Super  DT  -  [FSet  (UnitType  (*P  AnyDatatype))]  This  points  to  the  list  of  more  general 
datatypes  -  i.e.  those  which  contain  a  superset  of  this  datatype’s  members. 

Inverse:  SubDT 

SubDT  ~  [FSet  (UnitType  (*P  AnyDatatype))]  D1:SubDt  points  to  Datatypes  which 
accept  a  subset  of  those  accepts  by  the  datatype  DT  . 

Inverse:  SuperDT 

Rangelnterpreter  -  [FSingleton  FunctionType]  DTiRangefnterpreter  is  a  function  which 
helps  parse  the  value  of  S:DataJRange  ,  which  is  used  to  determine  the  appropriate 
values  to  fill  U:5  . 

ItTypeOf  -  [ FSet  Slot  Type]  Points  from  a  datatype  to  those  units  representing  functions 
whose  range  is  composed  of  this  datatype. 

Inverse:  Datatype 

SuperDT *~  [FSet  UnitType]  A  list  of  a  unit’s  SuperDT,  THEIR  SuperDT,  etc. 

Inverse:  SubDT* 

HighLevelDefn:  (Starring  SuperDT) 

SubDT*  -  [FSet  (UnitType  (*P  AnyDatatype))]  Transitive  closure  of  SubDT  . 

Inverse:  SuperDT* 

HighLevelDefn:  (Starring  SubDT) 

AnyFormat  (13)  *  From  this  descends  the  units  which  each  serve  to  describe  some 
format;  which  can  be  used  in  a  type  description. 

Superclass:  AnyCharacteristic 

Subclass:  AnySlotFormat  AnyValueFormat 

The  following  tlote  are  defined  for  all  'Format”#: 
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FnFor Adding  -  [FSingleton  FunctionTypej  One  should  add  a  new  entry  to  a  Ordered 
LIST  in  a  different  manner  than  one  uses  to  add  a  value  to  an  Unordered  SET. 
(In  the  first  case,  multiple  occurances  of  an  element  are  acceptable;  which  is  NOT 
true  in  the  second  case.)  This  information  is  contained  in  the  function  stored  in 
F’.FnFor  Adding  .  Note  it  is  used  by  the  various  Add  ing  functions  -  such  as  the  one 
employed  to  add  a  new  entry  to  the  existing  value  of  a  unit's  slot. 

FnForDeleting  -  [FSingleton  FunctionTypej  There  are  different  ways  of  deleting  an 
element  from  a  list,  versus  from  a  set.  As  with  FnForAdding  ,  this  information  is 
stored  in  F ’.FnForDeleting  ,  where  F  is  the  name  of  a  format. 

FormatCharacter  -  [FSet  NonNILTypej  This  holds  a  list  of  specifications  Tor  some 
format.  It  is  not  currently  used  for  anything  but  show. 

FnForGetting  -  [FSingleton  FunctionTypej  This  is  used  to  determine  the  value  of  a 
special  slot  value,  to  be  returned  when  GetValue  requests  its  value. 

FnForPutting  -  [FSingleton  FunctionTypej  This  indicates  how  to  put  a  value.  It  is 
basically  used  for  indirect  pointers. 

FnForKilling  -  [FSingleton  FunctionTypej  To  handle  indirect  pointers  using  the  *Do * 
special  slot  values,  one  needs  assistance  to  describe  how  to  perform  various  manipula¬ 
tions  -  such  as  deleting  a  full  slot's  value.  This  information  is  kept  in  VY.FnForKilling 
,  where  VF  is  a  value  format. 

FnForVerifyingAll  -  [FSingleton  FunctionTypej  This  is  used,  in  conjunction  with  the 
various  verifying  functions  associated  with  each  datatype,  to  build  the  function  stored 
in  the  VerifyValue  slot  of  each  slot.  It  indicates  how  to  verify  that  a  full  entry 
is  correct,  given,  (among  other  arguments,)  the  predicate  to  apply  to  each  entry 
individually. 

FnForVerifyingElement  -  [FSingleton  FunctionTypej  This  is  used  to  verify  that  a  single 
element  is  correct.  (Perhaps  this  isn’t  U6ed  anymore  -  I  must  look  into  this.) 

AnySlotFormat  (lj)  -  Descendants  are  used  in  type  specifications,  for  processes  (which 
include  functions  and  slots) . 

Superclass:  AnyFormat 

Direct  Examples:  FSingleton  FList  FSet  FOrderedSet  FBag  FListN 

AnyValueFormat  (IS)  -  Descendants  are  used  in  a  *Do*  special  slot  value  format.  This 
has  applications  as  indirect  pointers,  as  well  as  to  put  epistemological  marks  on  some 
value. 

Superclass:  AnyFormat 

Subclass:  AnylndirectPtrFormat 

Direct  Examples:  FOneOf  FExecute 
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AnylndirectPtrFormat  {16)  -  These  are  used  to  deal  with  subunits,  and  other  places 
where  much  data  is  stored  at  another  location  -  other  than  U:S  . 

Superclass:  AnyValueFormat 

Direct  Examples:  FSeeUnit  FSeeSlot  FSeeU&S 

AnyCiassOfObjccts  {If)  •  Every  member  of  this  class  is  itself  a  set. 

Superclass:  AnyCT&U 

There  are  currently  47  examples. 

The  following  tlott  are  defined  for  all  "ClassOfObjects’V 

TypicalEx  ample  -  [FSingleton  (UnitType  (*P  Any  Arche  type))]  This  points  from  a  class 
to  an  abstract  entity  which  holds  default  information  about  members  of  this  class. 
Inverse:  TypicalExampleOf 

DomainOf  -  [FSet  (UnitType  (*P  AnyFunction))]  If  a  function  takes  one  or  more 
elements  of  this  class,  as  arguments,  that  function  is  stored  on  the  DomainOf  slot 
of  the  unit  representing  that  class. 

Inverse:  Domain 

RangeOf  -  [FSet  (UnitType  (*P  AnyFunction))]  If  a  function  maps  into  this  class  (or  a 
space  having  this  class  as  one  dimension,)  that  function  is  stored  on  the  RangeOf 
slot  of  the  unit  representing  that  class. 

Inverse:  Range 

IntentionalExamplet  -  [FSet  UnitType]  These  examples  are  all  intentional  objects  - 
that  is,  they  are  only  defined  intentionally. 

StdExamplet  -  [FSet  UnitType]  This  slot  basically  represents  the  vanilla  “6"  relation¬ 
ship,  between  an  extensional  object,  and  a  represented  set. 

SuperClatt  -  [FSet  (UnitType  (*P  AnyCIassOfObjects))]  This  points  from  a  class,  C,  to 
each  superset  of  C,  D<  .  That  is,  x  £C  =>  x  €D<  ,  for  all  elements  x,  and  all  sets, 
D,  . 

Inverse:  Subclass 

SubClast  -  [FSet  UnitType]  This  points  from  a  class,  C,  to  each  subset  of  C. 

Inverse:  Superclass 

UnitExamplet  -  [FSet  UnitType]  This  points  from  a  class  to  each  member  of  that  clsjf. 
(Both  constant  and  variable.) 

Inverse:  Isa 

HighLevelDefn:  (Unioning  IntensionalExamplet  StdExamples) 

TotalSoFar  -  [FSingleton  IntegerType]  Fill  in  later. 

SuperClatt*  -  (FSet  UnitType]  A  list  of  a  unit's  Superclass,  THEIR  Superclass,  etc. 
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Inverse:  Subclass* 

HighLevelDefn:  (Starring  Superclass) 

SubClatt*  -  [PSet  UnitTypej  A  list  of  a  unit's  Subclass,  THEIR  Subclass,  etc. 

Inverse:  Superclass* 

HighLevelDefn:  (Starring  Subclass) 

AllExamples  -  [FSet  UnitType]  This  points  from  a  class  to  a  list  of  members  or  this 
class.  ( UnitExamples  only  pointed  to  elements  immediately  a  member  of  some  set 
—  this  will  follow  their  Superclass  links  as  well,  to  more  accurately  represent  an 
“6"  relation.) 

Inverse:  Alllsas 

HighLevelDefn:  (Composition  UnitExamples  Subclass*) 

GenlsModels  -  [FSet  (UnitType  (*P  AnyArchetype))|  This  is  used  for  several  of  the 
inheritances.  The  prototypes  of  every  example  of  some  class  include  that  clast’s 
GenlsModels  . 

HighLevelDefn:  (Composition  TypicalExample  Superclass*) 

AnyDccomposableObjcct  (18)  -  Descendants  of  this  are  real  world  entities  which  consist 
of  several  subparts;  and  which  are  little  more  than  the  union  of  such  pieces. 
Superclass:  AnyCT&U 

SubClass:  AnyActionSequence 

The  following  ilott  are  defined  for  all  'DecomposableObject’V: 

CompotedOf  -  [FSet  NonNILType)  This  points  to  a  list  of  the  parts  associated  with 
this  entity. 

AnyActionSequence  (19)  •  Any  compound  action,  composed  a  sequence  of  subactions, 
descends  from  this  unit. 

Superclass:  AnyAction  AnyDecomposableObject 

The  following  slot*  are  defined  for  all  "ActionSequence”s: 

SubActions  -  [FList  NonNILType]  Each  action  may  be  broken  into  a  series  of  substeps 
-  each  of  which  is  a  “subaction". 

Anylnheritance  (20)  -  All  modes  of  inheritance  will  descend  from  here.  Associated  with 
each  instance  of  an  inheritance  is  a  means  for  creating  new  units,  and  constraints  on 
properties  these  units  may  acquire,  (and  maybe  other  thinp...) 

Superclass:  AnyCT&U 

Direct  Examples:  IExamples  ISubClass  ITypEx 

The  following  slots  are  defined  for  all  'Inheritance”#: 
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UseToGetSlots  -  [FSingleton  NonNILTypej  Thii  points  to  a  high  level  definition  of 

a  function  which  is  takes  the  parent  units,  and  returns  a  list  of  units  whose  NewPonibleSlott 
slot  together  hold  the  slots  which  should  be  initialised  in  this  new  offspring. 

GetPossibleSlotsFn  -  [FSingleton  SlotType]  This  points  a  unit  which  represents  a  func¬ 
tion,  which  takes  the  units  found  using  the  UstfToGetSlots  function  mentioned 
above,  and  returns  a  list  of  values  with  which  to  initialise  a  new  unit.  Each  entry 
in  this  ordered  list  is  a  triple,  consisting  of  the  name  of  the  slot,  followed  by  the 
location  of  the  relevant  initialising  function,  and  the  typical  example  in  which  this 
slot  was  found. 

Inverse:  UsedBylnheritance 

Any  Overhead  (21)  -  Miscellaneous  information  needed  by  CORLL,  etc.,  is  stored  on 
units  which  descend  from  here. 

Superclass:  AnyCT&U 

SubCIa&s:  AnyStatus 

AnyStatus  (22)  -  This  will  father  all  ‘.STATUS  units 
Superclass:  AnyOverhead 

Direct  Examples:  RLL.STATUS 

The  following  slots  are  defined  for  all  'Status''#: 

KBsVARS  -  [FSingleton  NonNILTypej  This  names  a  variable,  whose  value  lists  the 
variables  associated  with  this  Knowledge  Base. 

KBsConncctedTo  -  [FSet  (UnitType  (*P  AnyStatus)))  The  value  of  <kb>.STATUS:/CB#Connec*edT 
is  a  list  of  other  status  units,  which  were  resident  in  core  the  last  time  this  Knowledge 
Base,  <kb>,  was  used.  It  is  reset  whenever  a  new  Knowledge  Base  is  read  in,  or 
whenever  one  is  disconnected  or  reconnected. 

Inverse:  KBsConnectodTo 

OpenDate  -  [FSingleton  StringType]  This  holds  the  time  stamp  when  this  Knowledge 
Base  was  openned  -  i.e.  the  start  of  this  session. 

NetworkStatus  -  [FSingleton  NonNILTypej  This  stores  the  last  person  to  use  this 
Knowledge  Base,  and  when  that  last  use  was, 

WhenOpeningNetwork  -  [FSingleton  UnrestrictedType]  This  points  to  a  list  of  functions 
which  CORLL  calls  when  openning  this  Knowledge  Base.  Each  takes  two  arguments 
-  the  first  is  the  name  of  this  KB,  and  the  second  is  passed  from  WhenOpenning Network* 

,  serves  to  suppress  questions  and  messages. 

LoadFiles  -  [FSet  NonNILTypej  This  lists  the  files  which  CORLL  will  read  in  whenever 
it  opens  this  network.  It  will  also  ask  if  it  should  MAKEFILE  these  when  this 
Knowledge  Base  is  closed. 
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KBtFNS  -  [FSingleton  NonNILType]  This  point*  to  a  variable  whole  value  list*  the 
function*  relevant  to  this  Knowledge  Base. 

WhenWritingNetwork  -  (FSingleton  NonNILType]  Thi*  point*  to  a  list  of  function* 
which  CORLL  calls  when  writing  out  this  Knowledge  Base.  Each  takes  two  argu¬ 
ments  -  the  first  ic  the  name  of  this  KB,  and  the  second  is  passed  from  WhenWritingNetwork $ 
,  serves  to  suppress  questions  and  messages. 

Networks  -  |FSet  KBType)  Each  Knowledge  Base  may  depend,  hierarchically,  on  the 
presence  of  other  knowledge  bases,  in  core.  The  KBs  <kb>  requires  are  listed  in 
< kb >.STATUS:iVef works  . 

KBsUnitlndez  -  [FSingleton  NonNILType)  This  points  to  the  unit  which  holds  the  unit 
index  CORLL  uses  for  this  Knowledge  Base. 

KBsFrecBlocklndez  -  (FSingleton  NonNILType]  This  points  to  the  unit  which  holds 
the  free  block  index  CORLL  uses  for  this  Knowledge  Base. 

DependentNetworks  -  (FSet  KBType)  This  lists  the  Knowledge  Bases  which  rely  on  the 
presence  of  this  Knowledge  Base  to  operate. 

AnyProcess  ( 23 )  -  Every  action  which  takes  place,  in  LISP,  is  a  Process  .  This  cor¬ 
responds  to  each  function  in  LISP. 

Superclass:  AnyCT&U 

Subclass:  Any  Action  AnyFunction  AnyUnitListProcess 

The  following  slots  are  defined  for  all  'Process '’s: 

CVUsedBy  -  (FSet  FunctionTypej  Having  x  in  y.CVUsedBy  means  x  s  cached-value 
should  be  updated  whenever  y  s  cached-value  changes. 

Inverse:  IUseCVOf 

DefnUsedBy  -  [FSet  FunctionTypej  Having  x  in  y.DefnUsedBy  means  x  s  defn,  and 
maybe  its  previously  stored  values,  should  be  updated  whenever  y  *  defn  changes 

Inverse:  IUseDefnOf 

IUseCVOf  -  [NotAFormat  NotARange]  Having  y  in  x:  IUseCVOf  mean*  if  they  stored 
value  of  some  s  should  change,  some  x  value  may  change  as  well. 

Inverse:  CVUsedBy 

HighLevelDefn:  (Apply*ingFn  GetAllCV*  HighLeveDefn) 

IUseDefnOf  -  (NotAFormat  NotARange)  Haring  y  in  x:IUseDefnOf  mean*  x  s  defn, 
and  maybe  its  previously  stored  values,  should  be  updated  whenever  y  s  defn  changes 

Inverse:  DefnUsedBy 

HighLevelDefn:  (Apply*ingFn  GetAllFNS  HighLevelDefn) 

LispFn  -  [FSingleton  FunctionTypej  The  actual  compiled  code  LISP  will  run,  to  process 
a  process,  is  stored  here. 
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HighLevelDefn:  (OneOf  LispFnForSlot  LispFnForStoredFn) 

HowToProeen  -  (F Singleton  FunctionTypej  Thi»  will  loon  be  deleted,  in  favor  of  LiipFn. 
WhatToProcete  -  [FSet  UnrestrictedType]  Fill  in  later.  . 

HighLevelDefn:  (OneOf  TaskList  RuleList) 

VerifgArgt  -  [FSingleton  FunctionTypeJ  The  value  of  T'.VerifgArgt  it  a  function  which 
it  true  if  its  argument  is  acceptable  at  input  to  the  function  represented  by  F  . 

AayAction  {21)  -  This  includes  any  activity  carried  out  in  the  real  world  by  physical 
objects. 

Superclass:  AnyProcess 

Subclass:  AnyActionSequence 

Direct  Examples:  DescribeUnit 

The  following  tloti  are  defined  for  all  "Action  "t: 

SpecAct  -  [FSet  UnitTypej  This  points  to  “refinements”  of  this  action  -  i.e.  activities 
which  are  more  precisely  specified. 

Inverse:  GenlAct 

CenlAct  -  [FSet  UnitTypej  This  points  to  actions  which  are  more  general  (i.e.  at  a 
higher  level  of  abstraction)  than  the  action  encoded  by  this  unit.  E.g.  Locomotions 
^Walking  : CenlAct  . 

Inverse:  SpecAct 

SpecAct  *  -  [FSet  UnitTypej  A  list  of  a  unit's  SpecAct,  THEIR  SpecAct,  etc. 

Inverse:  GenlAct* 

HighLevelDefn:  (Starring  SpecAct) 

CenlAct  *  -  (FSet  UnitTypej  A  list  of  a  unit’s  GenlAct,  THEIR  GenlAct,  etc. 

Inverse:  SpecAct* 

HighLevelDefn:  (Starring  GenlAct) 

AnyFunction  (25)  -  Functions  are  distinquished  from  processes  in  that  the  primary 
purpose  of  a  function  is  to  return  a  value.  Note  a  process  may  be  run,  in  effect,  for 
some  side  effect.  (Yes,  this  is  NOT  pure  LISP.) 

Superclass:  AnyProcess 

Subclass:  AnyFunctional  AnyPredicate  AnyStorableFn  AnyUnitListFn 

The  following  ilot*  are  defined  for  all  'Function 

SloteUtedlnBuilding  -  [FSet  SlotType]  Lists  the  slots  which  this  one  contributes  to 
defining. 

Inverse:  A11SBF 
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HighLevelDefn  -  [FSingleton  NonNILType]  Here  it  stored  a  High  Level  Specification  of 
the  code  to  be  run.  This  can  be  "parsed”  into  a  piece  of  LISP  code,  which  LISP  can 
execute.  Ideally,  the  information  here  should  be  sufficient  to  fully  specify  a  function. 

DataRange  -  {FSingleton  NonNILType]  The  value  of  T. DataRange  is  used  by  the 
range  interpreter  associated  with  D  ,  the  Datatype  of  the  function  S  ,  to  generate  a 
function  capable  of  deciding  whether  a  value  is  acceptable  or  not. 

Datatype  -  (FSet  (UnitType  (*P  AnyDatatype))]  S -.Datatype  points  to  the  list  of  units 
in  the  range  of  the  function,  F  . 

Inverse:  IsTypeOf 

Format  -  (FSingleton  (UnitType  (*P  AnyFormat))]  This  stores  the  format  of  the  result 
this  function  is  expected  to  return. 

FanctionCharacter  -  [FSet  NonNILType]  This  holds  facts  which  serve  to  describe  this 
function.  It  is  not  currently  used. 

Defn  -  (FSingleton  FunctionType]  This  function  must  take  in  a  slot  name  s  and  return  a 
function  capable  of  reading/computing  s  in  general.  Ultimately,  Defnr.De/n  should 
have  a  self-compiling  call  placed  in  each  value  it  returns. 

HighLevelDefn:  (Apply*ingFn  CAR  FunetionSpec) 

Definition  -  [FSingleton  NonNILType]  This  is  not  currently  used;  and  may  be  mean¬ 
ingless. 

Domain  -  [FSet  (UnitType  (*P  AnyClassOfObjects))]  This  points  to  units,  each  of  which 
represent  a  class  in  the  domain  of  this  function. 

Inverse:  DomainOf 

Range  -  [FSet  (UnitType  (*P  AnyClassOfObjects))]  This  points  to  units,  which  each 
represent  a  class  in  the  range  of  this  function. 

Inverse:  RangeOf 

IsBuiltFrom  -  (NotAFormat  NotARange]  Appears  in  unit  X,  for  a  type  of  slot,  and  lists 
the  old  things  out  of  which  X  has  been  defined 
HighLevelDefn:  (App!y*ingFn  AllButHead  HighLevelDefn) 

UnitsBuiltFrom  -  [NotAFormat  NonNILType]  This  is  going  away  soon. 

Inverse:  UsedlnBuilding 

HighLevelDefn:  (Subsetting  IsBuiltFrom  Unitp) 

UsingFunetionalt  -  [NotAFormat  NotARange]  Appears  as  a  slot  in  unit  X,  and  tells 
how  X  was  defined  out  of  other  slots 
Inverse:  CombinerFor 

HighLevelDefn:  (Subsetting  UsingFunctions  (MemberOf  AHIsas  AnyFunctional)) 
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SloUBuiltFrom  -  [NotAFormat  NonNILTypej  Fill  in  later. 

Inverse:  SlotsUsedlnBuilding 

HighLevelDefn:  (Subsetting  UnitsBuiltFrom  (MemberOf  Alllsas  AnySlot)) 

UeingFunctiont  -  (NotAFormat  NotARangej  Appears  as  a  slot  in  unit  Xf  and  tells  how 
X  was  defined  out  of  other  slots 
HighLevelDefn:  (Apply'ingFn  OnlyHead  HighLevelDefn) 

Precondition t  -  (FSet  NonNILTypej  Fill  in  later. 

DomainType-  [FList  NonNILTypej  This  holds  a  type  specification  indicating  the  domain 
over  which  this  function  is  defined. 

RangeType  -  [FList  NonNILTypej  This  holds  a  type  ipecificiation,  indicating  the  range 
into  which  this  function  will  map. 

AnyFunctional  (26)  •  Each  descendant  unit  represents  a  function  whose  range  is  a  space 
of  functions. 

Superclass:  AnyFunction 

Subclass:  AnyLogicalOp  AnySlotCombiner 

Direct  Examples:  ApplyToEach  Apply*ingFn  ApplyingFn  MemberOf 
The  following  slot*  are  defined  for  all  'Functional 

GetCVtUtei  -  (FSingleton  FunctionType]  The  value  of  SC:GetCViU»ed  is  a  function 
which,  when  applied  to  a  high  level  defn,  KLDefn,  returns  a  list  of  storable  functions 
on  whose  cached  values  this  HLDefn  depends.  (SC  is  the  CAR  of  that  HLDefn.) 
This  computed  function  can  then  be  stored  on  the  function  S  ,  which  will  usually  be 
a  slot. 

GetFniUted  -  (FSingleton  FunctionType]  The  value  of  SC'.GetFntUted  is  a  function 
which,  when  applied  to  a  high  level  defn,  HLDefn,  returns  a  list  of  functions  on 
whose  definition  this  HLDefn  depends.  This  can  then  be  stored  on  the  function  S  , 
which  will  usually  be  a  slot. 

CombinerFor  -  [FSet  (UnitType  (*P  AnyFunction))]  This  slot  appears  in  a  unit  X  tor  a 
type  of  functions,  and  lists  those  slots  which  are  defined  out  of  old  ones  by  using  X 
Inverse:  UsingFunctionals 

ToPartePartt  -  [FSingleton  FunctionType]  This  value  is  used  by  each  Slot  Combiner  to 
parse  its  list  of  arguments. 

AnyLogicalOp  (27)  •  Fill  in  later. 

Superclass:  AnyFunctional 

Direct  Examples:  L-Optional  L-NOT  L-QR 
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AnySlotCombiner  (28)  -  An  operator  which  take*  tome  old  slots  and  define*  a  new  one 
out  of  them. 

SuperClai*:  AnySlotListFn  AnyFunctional 

Direct  Example*:  Donelndirectly  Lilting  PutlnOrder  Soften  OneOf  Pluning  OrderedUnioning 
Unioning  OrderedCompoiition  OrderedStarring  Competition  Application 
Starring  FiritOk  Interacting  CommonXProd  Subletting 
The  following  elote  are  defined  for  all  "SlotCombiner 

FnFor Inverting  -  [FSingieton  FunctionTypej  To  find  the  inverse  of  a  slot,  one  can 
examine  the  high  level  definition  of  that  (lot,  and  attempt  to  invert  that.  The 
FnFor  Inverting  slot  of  a  slot  combiner,  SC  ,  i*  a  function  which  take*  a*  an  argument 
a  high  level  definition,  and  return*  the  high  level  definition  of  a  slot  which  computes 
the  inverse  functions  from  the  original  slot. 

FnForUpdating  -  [FSingieton  FunctionType]  When  a  new  value  is  placed  in  a  *Iot, 
several  other  slot*  in  the  Knowledge  Base  must  be  updated.  Such  updates  are 
performed  by  executing  the  code  stored  in  the  KBUpatei  slot  of  this  slot.  The 
FnForUpdating  slot  of  a  slot  combiner  is  used  to  compute  this  KBUpdatei  .  It 
takes  a  high  level  definition  as  its  argument,  with  this  particular  slot  combiner  aa 
principle  slot  combiner,  and  returns,  essentially,  the  value  for  the  KBUpdatee  slot 
for  this  slot  (defined  by  that  high  level  definition) . 

FnForCaching-  [FSingieton  FunctionTypej  After  the  value  of  a  slot  has  been  computed 
(using  the  slot's  definition,)  RLL  then  considers  storing  that  value  away.  Each 
slot  combiner  suggests  an  appropriate  algorithm  for  deciding  whether  to  store  such 
values,  and  where.  That  procedure  is  encoded  in  the  FnForCaching  slot  of  the  slot 
combiner.  (This  function  takes  a  high  level  definition  as  an  argument,  and  returns 
a  function  to  fill  the  ToCache  slot  of  a  slot.) 

AnyPredicatc  (29)  -  These  functions  return  a  value  which  is  used  as  a  Boolean  -  i.e. 
they  serve  to  intensionally  define  a  set. 

Superclass:  AnyFunction 

AnyStorablcFn  (SO)  -  This  class  contains  those  functions  whose  value,  on  some  input, 
might  be  stored,  (or  cached,)  away.  Note  at  least  one  of  the  arguments  must  be  a 
unit. 

Superclass:  AnyFunction 

Subclass:  AnyUnitListFn 

The  following  tlott  are  defined  Jor  all  'StorableFn"*: 

ToCache  -  [FSingieton  FunctionType)  The  function  stored  here  is  called  after  a  value 
has  been  calculated.  This  function  then  decides  whether  to  store  this  value  for  future 
use,  and  if  so,  where. 
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StoredALitt  -  [FSet  (FSet  UnrestrictedType)]  This  itores  tome  i/o  pairs  for  this  func¬ 
tion,  at  an  association  list. 

LitpFnForStoredFn  -  (FSingleton  FunctionType]  This  function,  used  as  the  value  for 
LitpFn ,  does  the  following:  First  try  to  find  the  value  by  looking  it  up.  If  that  fails, 
compute  it;  and  consider  caching  the  results.  Of  course,  then  return  the  computed 
(or  retrieved)  value. 

Tolnvalidate  -  (FSingleton  FunctionType]  The  function  stored  here  is  used  when  some 
cached  value  is  to  be  discarded. 

ToConfirmValue  -  [FSingleton  FunctionType]  When  retrieving  a  potential  value  for 
some  input  data,  the  predicate  stored  on  this  function’s  ToConfirmValue  slot  is 
used  to  see  if  this  value  is  valid. 

ToLookUp  -  (FSingleton  FunctionType]  The  value  of  this  slot  is  a  function,  which 
attempts  to  retrieve  a  cached  value  of  this  function. 

AnyUnitListFn  (51)  -  Here  will  be  any  mapping  which  takes,  as  an  argument,  one  or 
more  units 

Superclass:  AnyStorableFn  AnyFunction 

Subclass:  AnySIotGetter  AnySlotUstFn  AnyUnitFunction 

AnySlotGetter  (52)  -  Examples  are  the  units  used  to  get  the  list  of  slot  types  which  new 
units,  created  using  some  inheritance  mechanism,  should  have. 

Superclass:  AnyUnitListFn 

Direct  Examples:  PossibleSlotsOflSubClass  PossibleSlotsOflTypExPossibleSlotsOflExamples 

AnySlotListFn  (55)  -  Descendants  are  functions  which  takes  one  or  more  slots  as 
arguments. 

Superclass:  AnyUnitListFn 

Subclass:  AnySlotCombiner 

AnyUnitFunction  (5^)  -  Descendants  each  represent  a  mapping  which  takes,  as  an 
argument,  a  unit. 

Superclass:  AnyUnitListFn 

Subclass:  AnySELFSlot  AnySlot 

Direct  Examples:  FunctionSpec  My  KB 

The  following  sloti  are  defined  for  all  ,'UnitFunction”i: 

HandDoneSBF-  (FSet  SlotTypej  This  is  used  to  enter  the  names  of  slots  (or,  in  general, 
functions,)  which  current  slot  was  built  from. 

U$ingSlotCombiner»  -  jNotAFormat  NotARange]  Appears  as  a  slot  in  unit  X,  and  tells 
how  X  was  defined  out  of  other  slots 
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HighLevelDefn:  (Subsetting  UsingFunctionals  (MemberOf  Alllsas  AnySlotCombiner)) 

AfterGetValue  -  (FSingleton  FunctionType)  The  value  of  S:AflerGet Value  is  a  function 
which  is  applied  to  a  unit  U  the  S  and  the  value  U:S  ,  after  determining  this  value. 
Any  final  test  to  be  made,  can  be  done  here. 

ToGetValue  -  (FSingleton  FunctionType]  The  function  stored  on  a  function’s  ToGetValue 
is  invoked  when  one  requests  x:S  . 

LitpFnForSlot  -  [FSingleton  FunctionType]  The  value  of  S :LitpFn  is  a  function,  which, 
when  applied  to  a  unit,  U  ,  returns  the  value  of  U:5  . 

AllSBF  -  |FSet  SlotTypej  This  stands  for  All  Slots  Built  From  .  It  is  used  to  hold  the 
set  of  all  slots  which  affect  this  one  -  that  is,  x:S  may  have  to  be  invalidated  if  the 
1/  slot  of  some  unit  is  changed,  whenever  y  £S -.AllSBF . 

Inverse:  SlotsUsedlnBuilding 

HighLevelDefn:  (Unioning  SlotsBuiltFrom  HandDoneSBF) 

BeforeGetValue  -  (FSingieton  FunctionType]  The  value  of  S -.BeforeGetValue  is  a  func¬ 
tion  which  is  applied  to  a  unit  U  and  a  S ,  and  returns  nonNIL  if  these  arguments 
are  appropriate. 

ActualGetValue  -  |FSingleton  FunctionType]  The  value  of  S-.ActualGetValue  is  a  func¬ 
tion  which  is  applied  to  a  unit  U  and  a  S  ,  and  returns  acutally  does  the  retrieval 
of  the  vaue  of  U:5  . 

AnySELFSlot  (55)  •  Descendants  of  this  are  the  oft-spoken  syntactic  slots.  That  is, 
they  each  refer  to  this  unit,  qua  unit,  rather  than  what  this  unit  represents.  See 
AnyCT&U  and  AnyAT&U  to  understand  this  hackery. 

Superclass:  AnyUnitFunction 

There  are  currently  9  examples. 

The  following  tloti  are  defined  for  all  ”SELFS\ol"t: 

StoredlnTypA t  -  [FSingleton  SlotTypej  This  points  to  slot  which  holds  the  inheritable 
value  in  typical  example  units. 

Inverse:  StandsForSlot 

A  ay  Slot  (55)  •  Every  function  which  takes  a  unit  as  an  argument,  and  which  MAY  BE 
STORED  ON  THAT  UNIT,  is  a  slot;  and  descends  from  AoySlot  . 

Superclass:  AnyUnitFunction 

Subclass:  AnyComputableSlot  AnyField  AnylnheritabieSlot  AnyPrimitiveSlot 

The  following  ilott  are  defined  for  all  'Slot”*; 

ComputcWhenFilled  -  (FSet  SlotTypej  Whenever  a  new  value  fills  U:S ,  the  value  of  S.T 
should  be  recomputed  for  each  T  €S:ComputeWhenFilled  . 
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IsEssentialFor  -  [FSet  UnitTypej  Some  virtual  clots  must  be  stored  on  a  unit  for 
bootstrapping  reasons.  SiIsEssentialFor  holds  a  list  of  units  which  require  this 
S  slot. 

Inverse:  MyEssentialVirtualSlots 

/reverse  -  [FSingleton  SlotTypej  Stating  S  is  the  Inverse  of  a  T  means  x  £y.S  ifT  y 
6 x:T.  The  6  relation  means  a  =b  if  b  is  a  singleton,  otherwise  a  is  in  the  list,  b. 
Inverse:  Inverse 

SuperSlot  -  [FSet  SlotType]  Stating  SS  is  a  SuperSlot  of  S  means  the  value  of  x:S 

will  be  a  subset  of  the  value  of  x:SS  ,  for  all  x  in  their  common  range. 

Inverse:  SubSIot 

SubSIot  -  [FSet  UnitTypej  This  is  the  inverse  of  SuperSlot  . 

Inverse:  SuperSlot 

Makes SenseFor  -  (FSet  (UnitType  (*P  AnyArchetype))]  A  given  slot,  S  ,  may  only  be 
defined  for  certain  particular  units.  S:MakesSenseFor  points  to  a  list  of  typical- 
example  units.  This  S  slot  makes  sense  for  each  instance  of  each  such  unit. 

Inverse:  NewPossibieSlots 

ToPutValue  -  [FSingleton  FunctionTypej  The  function  stored  on  S:ToPutValue  is  called 
whenever  putting  a  new  value  onto  U:S  . 

Tolnitialize  -  [FSingleton  FunctionType)  When  creating  a  new  unit,  all  of  the  existing 
inheritance  mechanisms  first  gather  a  collection  of  slots,  which  are  meaningful  to 
this  new  unit.  Each  slot,  S  ,  is  then  asked  for  its  S:ToInitialize  function,  which 
is  then  run.  It  is  the  responsibility  of  this  function  to  actually  store  an  appropriate 
value  on  this  new  unit. 

SuperSlot* -  [FSet  UnitTypej  A  list  of  a  unit's  SuperSlot,  THEIR  SuperSlot,  etc. 
Inverse:  SubSIot* 

HighLevelDefn:  (Starring  SuperSlot) 

SubSIot*  -  [FSet  UnitTypej  A  list  of  a  unit’s  SubSIot,  THEIR  SubSIot,  etc. 

Inverse:  SuperSlot* 

HighLevelDefn:  (Starring  SubSIot) 

ToAddValue  -  [FSingleton  FunctionTypej  Whenever  one  wishes  to  add  one  a  value  to 
the  current  value  of  U:S ,  the  function  stored  on  SiToAddValue  is  called. 

ToDeleteValue  -  (FSingleton  FunctionType]  Whenever  one  wants  to  delete  a  value  from 
the  list  of  values  stored  on  U:5  ,  the  function  stored  on  S:ToDeleteValue  is  called. 

ToSubstValue  -  (FSingleton  FunctionTypej  Whenever  one  wants  to  substitute  one  value 
for  another,  on  the  list  of  values  stored  on  U:S ,  the  function  stored  on  S;ToSubstValue 
is  called. 
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KBUpdatet  -  {FSingleton  FunctionTypej  Whenever  a  value  it  stored  in  a  slot,  various 
changed  must  be  made  throughout  the  Knowledge  Bases,  for  truth  maintanence 
reasons.  A  function  designed  to  perform  such  modifications  is  stored  in  the  KBUpdatet 
slot  of  each  slot.  S.KBUpdatet  is  called  whenever  the  value  of  x:S  is  changed. 

This  KBUpdatet  is  calculated  using  the  FnForUpdating  slots  of  the  various  Slot 

Combiners  used  to  define  this  S  slot. 

VerifyAll  -  [FSingleton  FunctionType]  Before  accepting  a  value  for  storage  on  U :S ,  it  is 
tested  for  acceptability.  This  is  done  by  calling  S:Ver\fyAU  on  this  proposed  value. 

VerifyElement  -  [FSingleton  FunctionTypej  When  adding  a  new  value  to  a  slot’s  existing 
value,  or  substituting  one  value  for  another,  it  is  often  costly,  and  unnecessary,  to 
check  all  of  the  values  for  acceptability.  To  verify  the  validity  of  one  value,  the 
function  stored  on  S:VerifyElement  is  called  on  that  proposed  new  element. 

OrderForTolnit  -  [FSingleton  IntegerTypej  Each  slot  will  have  a  value,  stored  here, 
which  indicates  at  what  time  its  Tolnitialise  function  should  be  invoked  when  a  new 
unit  is  being  created.  It  may  use  the  global  variables:  uParent,  ulnheritance,  and 
uAHInheritantedSlots,  to  make  its  decision. 

ActualPutValue  -  [FSingleton  FunctionType]  The  value  of  S:ActualFutValuc  is  a  func¬ 
tion  which  is  applied  to  a  unit  U  ,  a  5  ,  and  a  value  V,  actually  stores  V  on  U:S 

Actual AddValue  -  [FSingleton  FunctionType]  The  value  of  S .ActualAddValue  is  a  func¬ 
tion  which  is  applied  to  a  unit  U  a  S  ,  and  a  value  V,  and  returns  actually  does  the 
addition  of  the  value  V  to  the  U:S  . 

ActualDcleteValue  -  [FSingleton  FunctionTypej  The  value  of  S:ActualDeleteValue  is  a 
function  which  is  applied  to  a  unit  U  a  S  ,  and  a  value  V,  and  returns  actually  does 
the  deletion  of  the  value  V  from  the  U:£  . 

ActualSubstValue  -  [FSingleton  FunctionType)  The  value  of  S :ActualSub*tValue  is  a 
function  which  is  applied  to  a  unit  U  a  S ,  and  values  V  and  W,  and  returns  actually 
does  the  substitution  of  the  value  W  Tor  the  value  V  in  the  U:S  . 

AnyComputablcSlot  (57)  -  These  slots  are  redundant,  as  they  could  have  been  com¬ 
puted  from  other,  more  basic  slots.  (Modulo  Garden-Of-Eden  conditions.  See 
MyEsscDti&lVirtu&lSlots  .) 

Superclass:  AnySlot 

There  are  currently  72  examples. 

AnyFicld  (55)  -  Slots  on  sub-units  (that  is,  units  devoted  to  storing  the  value  of  a  slot 
of  a  given  unit,)  are  called  fields.  Those  ‘slots*  which  appear  only  in  this  context 
are  stored  under  AnyField  . 

Superclass:  AnySlot 

Direct  Examples:  *vaLue*  LivesInLocation  LivesInSlot  LivesInUnit 
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AnylnheritableSlot  {39)  -  Descendants  of  this  class  are  slots  whose  value  may  be  inherited 
from  some  prototype  of  the  unit  in  question.  Or  course,  if  there  is  a  value  stored  on 
that  unit,  that  value  will  be  used. 

Superclass:  AnySlot 

Subclass:  AnyAccessSlot  AnyFormatFnSlot 

Direct  Examples:  ToLookUp  ToConfirmValue  OrderForToInit 

AnyAccessSlot  (40)  -  Descendant  of  this  AnyAccessSlot  are  slots  used  to  manipulate 
the  units  themselves.  For  efficiency,  they  all  use  the  same  fast  retrieval  mechanism 
to  determine  their  respective  values  -  GetAcceuFn  . 

Superclass:  AnylnheritableSlot 

Direct  Examples:  Tolnyaiidate  ActualSubstValue  ActualDeleteValue  ActualAddValue 

ActualGet  Value  ActualPutValue  ToGetVaJue  BeforeGetValue  AfterGetValue 
ToPutValue  BeforePutValue  AfterPutValue  ToAddValue  ToDeleteValue 
ToSubstValue  Tolnitiaiiie  MyToKillMe  ToCacheField  ToCache  ToKUlValue 
MyToRenameMe 

AnyFormatFnSlot  (41)  -  Various  bits  of  information  are  associated  with  each  format. 

When  this  information  is  functional,  it  descends  from  this  AnyFormatFnSlot  . 

Superclass:  AnylnheritableSlot 

There  are  currently  8  examples. 

AnyPrimitireSlot  {42)  •  Primitive  slots,  which  descend  from  this  AnyPrimitiveSlot 
,  cannot  be  computed  if  omitted.  (As  opposed  to  computable  slots,  which  are 
technically  redundant  information,  as  they  can  be  computed  from  more  basic  slots.) 
Superclass:  AnySlot 

Subclass:  AnySlot-Jnstances 

There  are  currently  96  examples. 

AnySlot-Instanccs  (^5)  -  Aliases  used  for  syntactic  slots  are  stored  under  AnySlot- 
Instances  .  These  are  used  to  hold  values  which  should  be  inherited  from  typical 
example  units;  freeing  the  basic  siot  to  hold  the  value  pertanent  to  this  particular 
unit. 

Superclass:  AnyPrimitiveSlot 

Direct  Examples:  SlotsNowOrdered-Instances  EssentialVirtualSlots-Instance*  ToKillMe- 
Instances  ToRenameMe-Instances 
The  following  tlott  ore  defined  for  all  'Slot-Instances 

StandtForSlot  -  (FSingleton  SlotType]  This  points  to  the  name  of  the  syntactic  slot  for 
which  this  is  an  alias. 

Inverse:  StoredlnTypAs 
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AnyUnitListProcess  (44)  -  These  processes  take  one  or  more  units  (amoung  possibly 
other  things)  are  arguments. 

Superclass:  AnyProcess 

Subclass;  AnyUnitProcess 

AnyUnitProcess  (4S)  -  These  processes  take  a  single  unit  as  its  argument. 

Superclass:  AnyUnitListProcess 

Direct  Examples:  EditUnit 

AnyUnit  (46)  -  Examples  will  be  things  which  REPRESENT  units...  NOTE:  this  does 
NOT  include  every  unit  automatically!  {In  fact,  most  units  represent  some  real  world 
object,  such  as  Tree#32,  or  some  conceptual  entity,  such  as  Red,  or  Function#412.) 
Superclass:  Anything 

The  following  alota  are  defined  for  all  '"Unit"#: 

MyCreatedAs  -  (FListN  (UnitType  (*P  Anylnheritance))  (FList  UnitType  )]  This  stores 
inheritance  information  about  this  unit  -  indicating,  for  example,  that  it  was  created 
as  an  IExamples  (read  “Example”)  of  AnySlot  . 

MyEstentialVirtualSloti  -  (FSet  SlotType)  These  slots  are  essential  for  the  Garden  of 
Eden  RLL  system.  Therefore  RemoveVirtualSlota  is  smart  enough  to  know  NOT 
to  remove  these  slots  (i.e.  those  which  MyEasentialVirtualSlot*  points  to)  from  a 
unit. 

Inverse:  IsEssentialFor 

MyTimeOf Creation  -  (FSingleton  StringTypej  This  records  when  this  unit  was  created. 
MyCreator  -  [FSingleton  StringTypej  This  names  the  user  who  created  this  unit. 
MyToKillMe  -  [FSingleton  FunctionTypoj  This  function  is  called  when  deleting  this 
unit. 

MySlotaNowOrdered  -  [FSet  SlotType]  This  lists  the  names  of  slots  which  are  currently 
in  the  correct  order.  (For  example,  OrderedPrototype*  appears  in  some  unit's 
MyEsaenlialVirtualSlots  only  when  the  typical  example  units  stored  in  Prototype* 
have  been  arranged  in  the  correct  order.) 

MyScnaibleSlota  -  (FSet  SlotType]  Only  certain  slots  are  defined  for  a  given  unit.  This 
list  is  stored  in  that  unit’s  MySenaibleSlota  . 

HighLevclDefn:  (Composition  NewPossibleSlots  Prototypes) 

MySlots  -  (FSet  SlotType]  This  never  cached  slot  returns  the  list  of  slots  belonging  to 
this  unit. 

Inverse:  AmUsedln 

MyToRenameMe  -  (FSingleton  FunctionType]  This  function  is  called  when  renaming 
this  unit  to  another  name. 
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AnyUser  (^7)  -  RLL  tries  to  hold  some  primitive  information  about  each  user  of  this 
system.  A  unit  is  devoted  to  each  user,  (as  well  as  each  recognised  user  class)  ;  and 
this  information  is  under  AnyUser  . 

Superclass:  AnyCT&U 

Subclass:  AnyHacker 

Direct  Examples:  AndyFreeman  LarryHines 

The  following  slots  ore  defined  for  all  "User 

InformalName  -  [FSingieton  StringTypej  This  is  a  name  RLL  can  use  .to  greet  this 
user. 

UsualKBs  -  jFSet  KBType)  These  are  the  Knowledge  Bases  this  user  usually  wants 
loaded  in. 

WritingOptions  -  [FList  NonNILTypej  When  closing  a  Knowledge  Base,  RLL  must  ask 
the  user  several  questions.  To  sidestep  this  tedious  (and  often  unnecessary  )  process, 
the  user  can  indicate  a  fixed  set  of  responses  to  such  inquires;  which  are  stored  on 
this  WritingOptions  slot.  When  closing  the  K3s,  the  user  is  now  asked  a  single 
question  -  if  he  wishes  to  use  these.  (Answering  No  forces  RLL  to  ask  him  these 
questions  one  by  one.) 

The  defaulted  writing  function,  SlandardFinithUp  ,  asks  if  virtual  slots  should  be 
removed,  if  this  KB  should  be  disconnected  from  the  others,  and  if  this  KB  should  be 
diagnosed;  in  that  order.  Setting  WritingOptions  to  (Y  N  Y)  instructs  RLL  to  remove 
virtual  slots,  and  diagnose  the  K3,  but  not  to  disconnect  it. 

OpenningOptions  -  [FList  UnrestrictedTypej  Like  WritingOptions  ,  this  helps  the  user 
to  avoid  a  potentially  dull  task.  The  value  stored  here  will  be  handed  to  the  function 
called  when  openning  each  knowledge  base;  if  the  user  indicates  he  wishes  his  default 
setting  to  be  used. 

The  only  question  StandardSlartUp  might  ask  is  whethr  to  reconnect  an  enterring 
knowledge  base.  Setting  the  OpenningOptions  slot  to  (NIL)  means  this  question  will 
be  asked  each  time. 

UserNarr.es  -  (FSet  StringTypej  This  lists  the  system  names  this  user  may  go  by.  (Ie 
values  of  (USERNAME )  which  correspond  to  this  person.  ) 

AnyHacker  (JS)  -  This  class  includes  people  working  on  RLL. 

Superclass:  AnyUser 

Direct  Examples:  DougLenat  RussGreiner 

AnyConcrcteThing  (^9)  -  Instances  refer  to  tangible  objects,  (such  as  trees,)  as  opposed 
to  abstract  things  (such  as  variables)  . 

Superclass:  Anything 
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E.4:  INDEX  of  UNITS. 

For  indexing  purposes,  the  classes  shown  in  Section  E.3  were  numbered  sequentially. 
This  value  is  used  in  the  index  below,  to  indicate  in  which  class  each  of  these  units 
(representing  classes,  their  examples  and  significant  slots)  belong. 


*vaLut  *  (Slot) .  38,6 

Actual  AdiValue  (Slot)  .  .  .  40,36 
ActualDelcteValue  (Slot)  .  .  40,36 
ActualGetValue  (Slot)  .  .  .  40,34 
ActualPutValue  (Slot)  .  .  .  40,36 
ActualSubstValue  (Slot)  .  .  40,36 
AfterGetValue  (Slot)  .  .  .  40,34 

AfterPutValue . 40 

AllExamples  (Slot) . 17 

AllGenh  (Slot) . 1 

Alllsas  (Slot)  . 1 

AllSBF  (Slot.)  . 34 

AllSpecs  (Slot) . 1 

AndyFreeman . 47 

AnySELFSlot  (Class)  ....  35 

AnyAT&U  (Class)  . 2 

AnyAbstractThing  (Class)  ...  9 
AnyAcccssSIot  (Class)  ....  40 

AnyAetion  (Class)  . 24 

AnyActionScquence  (Class)  .  .  19 

Any  Archetype  (Class) . 4 

AnyCT&U  (Class)  . 10 

AnyCbaractcristic  (Class)  .  .  11 

AnyClassOfObjccts  (Class)  .  17,1 

AnyComputablcSlot  (Class)  .  37 
AnyConcrcteThing  (Class)  .  .  49 

AnyDatatype  (Class)  ....  12 

AayDccomposablcObjeet  (Class)  18 

AnyDescriptor  (Class) . 5 

AnyField  (Class)  ......  38 

AnyFormat  (Class) . 13 


AnyFormatFnSiot  (Class)  .  .  41 

AnyFunction  (Class)  ....  25 

AnyFunetional  (Class)  ...  26 

AnyHacker  (Class) .  48 

Any  Indirect?  trFormat  (Class)  16 

AnylnheritableSlot  (Class)  .  .  39 

Anylnheritanee  (Class)  ...  20 

AnylntensionalObject  (Class)  .  .  3 
AnyLogiealOp  (Class)  ...  27 

Any  Overhead  (Class)  ....  21 

AnyPartiaJSpee  (Class)  ....  8 

AayPredicate  (Class)  ....  29 

AnyPrimitiveSlot  (Class)  .  .  42 

AnyProcess  (Class) .  23 

AnySlot  (Class) .  36 

AnySlot-Instanees  (Class)  .  .  43 

AnySlotCombiner  (Class)  .  .  28 

AnySlotFormat  (Class)  ...  14 

AnySlotGetter  (Class)  ...  32 

AnySlotListFn  (Class)  ...  33 

AnyStatus  (Class) .  22 

AnyStorableFn  (Class)  ...  30 

AnyUnit  (Class) .  46 

AnyUnitForSlot  (Class)  ....  6 

AnyUnitFunction  (Class)  .  .  34 

AnyUnitListFn  (Class)  ...  31 

AnyUnitListProcess  (Class)  44 

AnyUnitProceis  (Class)  ...  45 

AnyUser  (Class) .  47 

AnyValueFormat  (Class)  .  .  15 

AnyYariable  (Class)  . 7 
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Anything  (Class) . 1 

Application . 28 

AppIy'ingFn . 26 

ApplyToEach  . 26 

ApplyingFn . 26 

BeforeGetValae  (Slot)  .  .  .  40,34 

BeforePutValue . 40 

BooleanType . 12 

CVUsedBy  (Slot) . 23 

Characteristics  (Slot) . 1 

CombinerFor  (Slot) . 26 

CommonXProd . 28 

ComposedO f  (Slot) . 18 

Composition . 28 

ComputeWhenFilled  (Slot)  .  .  36 

DataRange  (Slot) . 25 

Datatype  (Slot) . 25 

Definition  (Slot) . 25 

Defn  (Slot) . 25 

DefnUsedBy  (Slot) . 23 

Depen  dent  Net  works  (Slot)  .  .  22 

Descr  (Slot) . 1 

DescribeUnit . 24 

Domain  (Slot) . 25 

DomainOf  (Slot) . 17 

DomainType  (Slot) . 25 

Donelndirectly . 28 

DougLenat  . 48 

EditUnit  . 45 

EqualDTSpec  (Slot) . 12 

EssentialVirtualSlots-Instances  .  43 

FBag . 14 

FExecute . 15 

FList . 14 

FListN . 14 

FOneOf . 15 

FOrderedSet . 14 

FSeeSlot  . 16 

FSeeU&S . 16 


FSeeUnit .  16 

FSet . 14 

FSingleton .  14 

FirstOk .  28 

FnFor Adding  (Slot) .  13 

FnForCaching  (Slot)  ....  28 

FnForDeleting  (Slot)  ....  13 

FnForGetting  (Slot)  ....  13 

FnForlnverting  (Slot)  ....  28 

FnForKilling  (Slot) .  13 

FnForPutting  (Slot)  ....  13 

FnForUpdating  (Slot)  ....  28 

FnForVerifyingAll  (Slot)  .  .  13 

FnForVerif yingElement  (Slot)  13 

Format  (Slot) .  25 

FormatCharacter  (Slot)  ...  13 

FunctionCharacter  (Slot)  .  .  25 

FunctionSpec .  34 

FunctionType .  12 

GenerateAil  (Slot) .  12 

GenlAct  (Slot) .  24 

GenlAct*  (Slot) .  24 

GenlsModels  (Slot) .  17 

GetCVsUsed  (Slot) .  26 

GetFnsUsed  (Slot) .  26 

GetPossibleSlotsFn  (Slot)  .  .  20 

HaniDoneSBF  ( Slot)  ....  34 

HighLevelDefn  (Slot)  ....  25 

HowToProcess  (Slot)  ....  23 

IExamples .  20 

ISubCIass .  20 

ITypEx .  20 

IUseCVOf  (Slot) .  23 

IUseDefnOf  (Slot) .  23 

InformalName  (Slot)  ....  47 

IntegcrType .  12 

JntensionalExamples  (Slot)  .  17 

Intersecting .  28 

Inverse  (Slot) .  36 
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IsBuiltFrom  (Slot) . 25 

IsEssentialFor  (Slot)  ....  36 

IsTypeOf  (Slot) . 12 

Isa  (Slot) . 1 

KBType . 12 

KBUpdatet  (Slot) . 36 

KBs  Connect  ecLTo  (Slot)  ...  22 

KBsFNS  (Slot) . 22 

KBsFreeBlocklndex  (Slot)  .  .  22 

KBsUnit Index  (Slot)  ....  22 

KBsVARS  (Slot) . 22 

L-NOT . 27 

L-OR . 27 

L-Optional  . 27 

LarryHines  . 47 

LispFn  (Slot)  . 23 

LispFnForSlot  (Slot)  ....  34 

LispFnForSloredFn  (Slot)  .  .  30 

Listing . 28 

LivesInLocation  . 38 

LivesInSlot  . 38 

LivesInUnit . 38 

LoadFiles  (Slot)  . 22 

MakesSenseFor  (Slot)  ....  36 

MemberOf . 26 

A fyCreatedAs  (Slot) . 46 

MyCreator  (Slot) . 46 

MyEssentialVirtualSlots  (Slot)  46 

MyKB . 34 

MyRefineSlots  (Slot) . 8 

MySensiblcSlots  (Slot)  ....  46 

My  Slots  (Slot) . 46 

MySlotsNowOrdered  (Slot)  .  .  46 

MyTirneO  /Creation  (Slot)  .  .  46 

MyToKillMe  (Slot)  ....  46,40 
MyToRenameMe  (Slot)  .  .  46,40 
NetworkStatus  (Slot)  ....  22 

Networks  (Slot)  . 22 

NewPossibleSlots  (Slot)  ....  4 


NonNILType .  12 

NumberType .  12 

OneOf .  28 
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OrderedStarring .  28 
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Soften .  28 

SpecAct  (Slot) .  24 
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StoredlnTypAs  (Slot)  ....  35 

StringType .  12 
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Subclass  (Slot) . 17 

Subclass  *  (Slot) . 17 

SubDT  (Slot) . 12 

SubDT*  (Slot) . 12 

SubSlot  (Slot) . 38 

SubSlot  *  (Slot) . 36 

SubTypEz  (Slot) . 4 

SubTypEz  *  (Slot) . 4 

Subsetting . 23 

Superclass  (Slot) . 17 

Superclass  *  (Slot) . 17 

SuperDT  (Slot) . 12 

Super  DT*  (Slot) . 12 

Super  Slot  (Slot)  . 36 

SuperSlot*  (Slot) . 36 

SuperTypEz  (Slot)  . 4 

SuperTypEz*  (Slot) . 4 

ToAddValue  (Slot) . 40,26 

ToCache  (Slot) . 40,30 

ToCacneField  . 40 

ToConfirmValue  (Slot)  ,  .  39,30 
ToDeleteValue  (Slot)  ....  40,36 

ToCetValue  (Slot) . 40,34 

Tolnitialize  (Slot) . 40,36 

Tolnvalidate  (Slot)  ....  40,30 

ToKillMe-Instances . 43 

ToKillValue . 40 

ToLookUp  (Slot) . 39,30 

ToParseParts  (Slot) . 26 

ToPutValue  (Slot) . 40,36 

ToRenameMe-Instances  ...  43 

ToSubstValuc  (Slot)  ....  40,36 

TotalSoFar  (Slot) . 17 

TypicalEzample  (Slot)  ....  17 

TypicalEzampleOf  (Slot)  ....  4 

Unioning . 28 

UnitEzamples  (Slot)  ....  17 

UnitType . 12 

UnitsBuiltFrom  (Slot)  ....  25 


UnrestrictedType .  12 

UstfoGetSlots  (Slot)  ....  20 

User  Names  (Slot) .  47 

UsingFunctionals  (Slot)  ...  25 

UsingFunctions  (Slot)  ....  25 

UstngSlotCombiners  (Slot)  .  .  34 

UsualKBs  (Slot) .  47 

Veri/yAll  (Slot) .  36 

VerifyArgs  (Slot) .  23 

VerifyElement  (Slot)  ....  36 

VerifyType  (Slot) .  12 

WhatToProeess  (Slot)  ....  23 

WhenOpening  Network  (Slot)  .  22 

WhenWritingNetwork  (Slot)  .  22 

WritingOptions  (Slot)  ....  47 


F.  APPENDIX  -  Environment 


The  functions  most  RLL-1  users  will  need  fit  into  three  basic  groups.  Those  which  a  novice  user 
should  know  are  listed  first,  organized  by  topic.  These  top  level  functions  place  essentially  no 
restriction  on  the  nature  of  the  knowlede  base  on  which  they  are  used.  The  next  group  of  functions 
arc  one  level  deeper,  consisting  of  the  functions  required  for  bootstrapping  RLL-1.  These  are  listed 
alphabetically.  Most  of  these  functions  live  in  some  unit,  and  are  used  by  default  --  i.e.  unless 
overwritten.  The  final  category  are  utility  functions,  which  augment  LISP  in  useful  ways. 

The  rest  of  this  appendix  list  miscellaneous  functions  which  have  been  adviced  or  altered  and 
relevant  global  variables.  The  various  functions  and  variables  which' comprise  CORLL,  (see 
[S/mr/jj)  may  be  used  as  well.  (Recall  RLL-1  is  built  on  this  unit-management  system.) 

These  functions  will,  in  general,  return  nil  only  when  some  error  has  been  encountered  --  for 
example,  when  the  slot  in  question  is  not  really  a  bona  fide  slot.  Also,  many  of  the  parameters 
mentioned  below  are  optional,  and  serve  only  to  speed  up  the  functions  processing,  if  supplied.  To 
indicate  this  distinction,  each  required  parameter  will  begin  with  a  capital  letter,  while  each  extra 
one  will  start  with  a  lower  case  letter. 

Thanks  to  a  special  "hack"  made  to  LISP's  interpreter,  many  of  the  units  can  serve  as  functions. 
Seeing  (FN  arg1  arg2  ...  argN),  LISP  will  first  attempt  to  apply  the  functional  definition  of  fn  (i.e.  the 
lambda  expression  stored  in  (GETD  fn>)  to  these  arguments.  If  (GETD  'Fn>  is  nil.  before  raising  an 
error  interrupt.  LISP  will  then  check  if  fn  is  a  Process  -  that  is,  a  unit  which  descends  from 
Any  Process.  If  so,  and  if  the  arguments.  (arg1  arg2  ...  argN),  arc  in  the  domain  of  fn,  (iff  (apply* 
(GetValue  FN  VenfyArgs)  arg,  arg2  ...  argN)  is  nonNIL).  LISP  will  (APPLY*  (GetValue  'FN  ’LispFn)  arg,  arg2 
...  argN),  and  return  that  rcsulL 

As  mentioned  in  subsection  5.5,  much  of  the  "smarts"  of  RLL-1  has  been  relegated  to  seme  unit,  as 
opposed  to  the  more  standard  practice  of  simply  coding  it  opagueiy  into  some  (set  of)  functions. 
For  example,  there  is  no  mention  below  of  Fields,  (or  any  other  indirect  pointers.)  which  Appendix 
B.4  implied  must  exist.  This  information  has  been  placed  within  the  FSeeUmt  unit;  which  "knows" 
how  to  access  such  values,  and  how  to  modify  them.  Hence  we  saw  the  value  physically  stored  in 
the  Age  sloe  of  Mar/  was  "(*Co’  FSeeUnlts  39  (U4S  AgeOfMaryCOOi )  (U4S  AgeCfMary002)  )".  (The  initial 
"*Oo*"  indicates  this  is'a  special  slot  value;  see  Appendix  D.4.)  This  particular  mechanism,  of  using 
"value  formats",  has  othcr,  less  epistemologically  motivated  uses.  For  example,  to  indicate  the  Color 
o<  George  is  either  Green  or  Red,  on  can  put  tire  value  ”(*Do*  FCneCf  Gree  Red)"  into  George’s  Color 
slot 


D.1 :  Top  Level  Functions 


Overhead: 


Unitp[  Unit  ]  --  Returns  nonNIL  iff  Unit  is  a  unit,  belonging  to  one  of  the  networks  currently  loaded 
in. 

Processp(  Process  ]  -  Returns  nonNIL  iff  Process  is  a  process  which  belong  to  one  of  die  networks 
currently  loaded  in.  As  this  is  often  involved  in  the  Verify Args  test  described  above,  any 
Knowledge  Base  which  uses  processes  is  expected  to  provide  RLL-1  with  such  a  function. 
(This  happens  to  reside  in  ProcessTyp werityType.) 

siotpf  Slot  ]  --  Like  Proeesso,  this  returns  nonNIL  iff  Slot  is  a  slot  which  belong  to  one  of  the 
networks  currently  loaded  in.  Again,  any  Knowledge  Base  which  uses  slots  is  expected  to 
provide  RLL-1  with  such  a  function.  (This  happens  to  reside  in  stotJype.ventyTyp*.) 


ED  ITU  [  umt  extra]  -  Calls  the  LISP  editor  on  the  slots  and  their  values  of  this  unit.  They  will  be 
arranged  as  a  property  list.  The  ctTect  will  be  the  same  as  actually  performing  a 
Putvaiue[unit  Slot  value  old  extra]  for  each  slot  changed,  where  Value  is  the  new  value  stored  in 
this  slot,  and  old  is  either  the  value  which  had  been  there  cr  RecomputeMe. 

Notes:  ecitu  is  an  NLAMBDA,  ala  editp. 

Like  EP,  "EL"'  is  a  LISPXMACRO.  as  well  as  a  USERMACRO. 

One  can  terminate  the  editting  session,  without  performing  the  changes,  by  typing 
"ABORT'. 

Typing  "P-A  jr  y  2"  will  reset  extra  to  the  value  (x  y  z). 

(P-A)  resets  extra  to  nil. 

Ending  a  session  with  "SimplePut''  will  use  the  CORLL  function  ua-putvalue,  rather 
than  the  full  Putvaiue. 

DI(  umt  other  depth  ]  -  Prints  cut  the  (psuedo-)  hierarchy  of  units,  starting  with  the  unit.  unit.  (If 
omitted,  will  start  from  the  root,  called  Anything.)  The  optional  list,  other,  specifies  which 
branches  to  take  on  the  descent.  As  with  sictp,  each  Knowledge  Base  should  supply  this 
function.  (In  this  implementation.)  if  other  includes  any  of  (S  Subclass  Specs},  ail  of  the 
Specializations  (which  is  usually  Subclass)  of  each  unit  walked  will  be  examined.  Any  of  {7 
Typ  TypicaiEx ample}  will  cause  ci  to  print  out  the  typical  example  of  each  class  of  each  unit 
walked.  {E  Examples}  both  print  out  of  the  unuExampies  of  each  class  unit  walked.  (By 
default.  01  wiil  follow  all  of  these  links.)  This  will  stop  rccur(s)ing  down  the  tree  after  (CR 
depth  icco)  iterations. 

START[  ]  -  Sura  the  RLL-1  system:  this  will  load  in  die  desired  Knowledge  Bases,  and  perform 
other  initializing  functions. 

GetKBs[  ]  -•  This  function  loads  in  the  RLL  Knowledge  Base,  and  then  the  others  the  user  has 
requested. 

Close[  ]  **  Closes  each  Knowledge  Base  now  open. 

CANCEL[  ]  •*  Cancels  each  Knowledge  Base  now  open. 

CC[  ]  —  Asks  the  user  whether  it  should  Close  or  Cancel  each  Knowledge  Base  now  open,  and 
does  so. 

Retrieval: 


Slot’s  value 

GetValuel  Unit  Slot  others  ]  --  This  is  RLL-l’s  basic  geL  It  returns  the  value  derived  by  applying 
siot:ToGe(Va/ue  to  Unit.  Slot  and  others.  (The  semantics  of  the  optional  third  argument 
depends  on  that  stored  function.)  As  this  slot  is  accessible  to  the  user,  he  can  code 
arbitrarily  complex  retreival  schemes.  The  current  value  of  ToGetvaiue.TaGerva/ue  is 
GetAccessFn.  As  shown  above,  (in  Appendix  A.i,  or  subsection  4.3)  the  result  of  the 
function  call.  (GetAccessFn  Slot  ToGetva/ue),  is  applied  to  (Unit  Slot  others).  The  value  this 
returns  is  returned  by  the  overall  Getvaiue. 


Writing: 


Slot’s  value 

PutValue[  Unit  Slot  value  oidvaiue  why  ]  -  This  is  RLL-l’s  vanilla  put  function.  It  calls  the  function 
SioVJoP-jtvaiue,  handing  it  all  the  arguments  listed  above.  [Recall  that  only  tine  first  three 


3 


arguments  are  required;  of  the  others,  (those  beginning  with  a  lower  case  letter,)  oidvaiue 
will  be  computed  if  it  is  not  given  and  found  to  be  necessary.] 

AddValuef  Unit  Slot  Value  oidvaiue  why  extra  ]  --  This  function  is  used  to  add  a  new  value  to  the  list 
of  entries  already  stored  as  umts/of,  using  the  function  stored  on  sioi.ToAdavaiue.  By  default, 
(i.e.  stored  on  Typicaisiocroxodva/ue).  OefauitAddvaiue  will  be  called  on  this  argument  list.  The 
variable  "why"  holds  information  describing  why  this  operation  was  performed;  and  "extra" 
is  used  to  additional  (non-why)  data  to  the  actual  adding  function.  (Note  OeieteVaiue  and 
Substvaiue  use  these  same  two  extra  arguments,  for  the  same  purpose.) 

Delete  Value]  Unit  Slot  Value  oidvaiue  why  extra  ]  -*  Like  AddVatue,  this  function  is  designed  to 
remove  a  value  from  the  list  stored  on  umestof,  using  Slot -.ToOeiatavaiue.  By  default,  (i.e. 
stored  on  TypicaiSioeroCeieteVaius),  DefauitDeieteVaiue  will  be  called  on  this  argument  list 

Kill  Value]  unit  Slot  oidvaiue  why  ]  --  This  removes  all  traces  of  the  slot  Slot  from  the  unit  unit.  It 
should  be  the  same  as  performing  a  Put'/aiue]  Unit  Slot  RecomputeMe  oidvaiue  context  why]. 
It  actually  uses  the  sioi-.ToKiiivaiue,  which  defaults  to  the  value  stored  on  Typicaisiot -.ToKiiivaiuo, 
DefauitKiliValue. 


SubStV  aluC]  Unit  Slot  TcValue  FromValue  oidvaiue  why  oxtra  ]  --  This  substitutes  the  value  FromValue 
with  the  value  ToVaiue  in  unit:S/ot.  The  value  of  Slot .ToSudstvaiua,  which  defaults  to 
CefauitSubstvaiue,  may  be  used. 

Cache  Value]  Unit  Slot  Value  why  ]  --  This  is  the  command  issued  which  considers  storing  Value  on 
L'mt:Siot.  By  default,  (i.e.  stored  on  Typicaisiot: roCac-eva/ua).  OetauitSiotCacher  will  be  called 
on  this  argument  list 


KB  Management: 


CreateUnit]  Unit  KnowiedgeBase  ]  --  This  creates  a  new  unit  named  Unit,  adding  it  to  the 
Knowledge  Base,  KnowiedgeBase. 

NewUnit]  unit  Inheritance  ParentSet  KnowiedgeBase]  —  This  creates  a  new  unit  named  Unit,  which  is  a 
dcsccndcnt  of  each  member  of  the  ParentSet.  by  the  inheritance,  inheritance.  After  some 
preliminary  overhead,  it  calls  initiaiizeUnit,  whose  mechanism  has  yet  to  be  "officially" 
decided.. 

KillUnit]  umt  ]  --  Deletes  the  unit  named  Unit,  disconnecting  all  of  its  links.  (The  end  result 
should  be  as  if  this  unit  had  never  existed.)  It  really  calls  umiMyToKitiMe,  which  defaults 
(when  Typicaiunit  is  reached)  to  DefauitKiHUnit. 

RenameUnit]  NewName  Unit  KB]  --  This  changes  the  name  of  the  unit.  Unit,  to  be  NewName,  in  the 
Knowledge  Base,  kb,  and  propagates  the  effects  of  this  change.  It  really  calls 
Unii.MyToRanameMe,  which  defaults  (when  TypicalUnit  is  reached)  to  DefaultRenameUnit.  (This 
will  often  be  intercepted,  by,  for  example,  the  value  of  TypicaiClassMyToRenameMe.) 


D.2:  Functions  Needed  to  Bootstrap  RLL-1 


Many  of  these  functions  reside  somewhere  in  the  RLL-1  Knowledge  Base.  This 
information  is  listed  below;  following  the  list  of  arguments. 
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AddInverseLinks[  Unit  ]  --  This  add  the  inverse  links  (back  pointers)  to  every  link  emanating 
from  Unit. 

CacheIfOK[  Unit  Slot  Value  oidValue  why  ]  —  Caches  Value  in  Umt:S/of  only  if  lsCfc(  Value  ]. 

CacheIfNonTrivial[  Unit  Slot  Value  oldValue  Why  ]  *-  Caches  Value  in  Unit Slot  only  if  isOk[  Value  ] 
and  value  does  not  equal  (UST  unit). 

CleanWS[  ]  —  This  tells  CORLL  that  no  unit  has  been  written  out.  The  first  call  to  the  CORLL 
function  up  putunit  will  "dirty"  the  current  work  space;  undoing  this  fact. 

CreateSlotf  HLDefn  K3  SV  ]  --  This  creates  a  new  slot,  whose  high  level  definition  is  HLCefn.  This 
new  slot  will  be  stored  in  the  knowledge  base,  kb.  The  user  may  optionally  add  other  slots 
to  this  new  unit;  these  would  be  passed  as  a  list  of  dotted  pairs,  in  the  sv  argument. 

DefaultActUalAddValue  [  Unit  Slot  Value  oidvaiue  why  extra  ]  --  {Typ\cz\S\oV.  Actual  AddValue) 
This  function  actually  adds  on  a  new  value,  value,  onto  umtstot.  whose  vaiue  is  now  oidvaJue. 
It  will  call  on  the  appropriate  slot  format  (or  value  format)  as  required. 

DefauitActualDeleteValuef  unit  Slot  value  oidvaiue  wny  ]  --  {TypicaiSlot:,lc.'ua/Z?e/ereKj/ue} 
This  actually  deletes  an  old  vaiue.  It  is,  in  form,  essentially  identical  to  DefauitActuaiAaoVaiue, 
guided  once  again  by  s\otfomat. 

DefaultActua!GetValue{  unit  siot  others  ]  -  {TypicalSlot:.4crua/C<?rf/d/ue} 

This  is  used  to  actually  retrieve  (and  recompute,  if  necessary.)  the  value  of  the  Slot  slot  of 
the  unit,  unit.  The  others  argument  contains  a  list  of  zero  or  more  values,  which  are  used 
modify  this  process;  for  efficiency  reasons.  The  next  two  paragraphs  will  describe  what 
OetauitActuaiGetvaiue  will  do  when  others  is  nil. 

It  will  first  use  ua-getvalus  to  find  if  any  value  is  physically  stored  on  the  s::t  slct 
of  umt.  If  that  value  satisfies  MustRecomputep,  (i.e.  is  nil.  or  Reccmpute.vie.) 

DetauitActuaiGetvaiue  will  apply  Slot :Oetn  to  Unit  and  Slot,  and  locally  store  the  rcsulL  The 
function  Cachevaiue  is  then  called  on  Unit,  Slot  and  this  stored  vaiue.  This  function, 
described  below,  may  physically  cache  this  value  in  the  knowledge  base.  In  any  event,  that 
value  is  the  actual  value  of  umts/or,  and  will  be  used  in  what  follows. 

If  Unit:S/ot  is  a  special  slot  value,  (i.e.  of  the  form  (*Do’  <vaiue-format>  ...),  )  the  value 
of  the  FnForGetting  slot  of  <vaiue-formaO  will  be  called  on  this  value,  as  well  as  Unit.  Slot  and 
the  FnForGetting  slot  of  siot:5ormaf.  Otherwise  these  arguments  will  be  handed  to  that 
FnForGetting  slot  of  siotrformat.  The  value  this  call  returns  will  be  the  result  of  this  cail. 

Now  for  the  exceptions:  When  fast-get  is  included  in  others,  r.o  Jains  will  be 
tested  ••  and  hence  no  writes  will  be  performed  into  the  Knowledge  Base.  Including  no- 
Cache  means  no  computed  values  will  be  cached  (i.e.  Cachevaiue  will  not  be  called), 
although  such  values  will  be  computed  as  necessary.  "igncre-cache"  tells 

DetauitActuaiGetvaiue  to  ignore  any  value  stored  in  the  S!ol  slot,  and  rely  on  Slot:  Defn.  If 
fast-cache  is  included,  it  will  be  passed,  as  Fast-Cache,  to  that  caching  function.  When 
impure  is  in  that  list,  the  global  variables  uvaiue  and  uContext  will  be  set  to  the  value  here 
returned,  and  the  unit  on  which  this  value  was  physically  stored,  respectively.  The 

remaining  values  are  all  used  to  speed  up  runtime  execution.  novalue-format  indicates  to 
return  the  value  found,  rather  than  call  the  Vaiue  Format's  FnForuetting,  (when  that  would 
have  been  applicable). 

DefaultActualPutValuef  Unit  Slot  Value  oidvaiue  why  ]  -  {Typk3.\S\ov.Ac;ua!PutValue} 

This  function  performs  the  actual  put.  The  specifics  of  how  this  is  done  depends  on 

whether  value  or  oidvaiue  has  a  value  format,  and  on  F,  the  Format  slot  of  Slot.  If  both  values 

are  unformatted,  the  FnForPutting  associated  with  the  unit  F  is  called  on  appropriate 
arguments.  If  cither  satisfies  vaiueFormattedp,  the  FnForPjtting  slot  of  that  vaiue  format  will  be 
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called  on  these  arguments,  augmented  with  f  FnForPuttmg. 

DefaultActUalSllbStValue[  unit  Slot  Value  Modification  A/hy  ]  —  {TypicalSIot: .  tciujLSubsiYalue} 
This  actually  performs  the  substitute  of  a  new  value  for  an  old  one.  .  ittv.n  the  existing 

value  of  a  umt:S/of.  The  exact  substituting  process  depends  on  the  nature  of  SJot  (in 

particular,  on  the  value  of  sioi.Fo rmat). 

DefaultAddValue  (  Unit  Slot  Value  oidvaiue  why  extra  ]  **  (TypicalSIot:  ToAddValue} 

This  is  the  default  way  to  add  a  new  value.  Like  DeiauitPutvaiue,  it  will  ca" 
OefauitBeforePutvaiue  before  performing  this  addition.  (Here  the  value  of  single  will  be 
nonNiL,  and  is  used  to  indicate  the  nature  of  this  alteration.)  The  exact  adding  process  is 
performed  by  OetauitActuaiAddvaiue.  (f  this  succeeds,  DefauitAtterPutvaiue  is  called  with  these 
arguments. 

"extra”  tells  whether  a  single  value,  or  a  list  of  values,  are  being  added;  and  whether  the 
current  value  of  umt:S/or  should  be  recomputed  (using  sio t.Cam)  if  it  is  currently  empty. 

DefaultAfterGetValue  [  unit  Slot  Others  ]  --  {TypicalSloti.ly/erCwKj/ue} 

This  is  the  default  function  executed  after  the  actual  getting  within  DefauitGetvaiue  is 

performed.  (DefauitGetvaiue  will  return  nil  if  this  function  docs.)  Currently  this  function 
simpl"  returns  T. 

DefaultAtterPutV  alue  (  Una  Slot  NewVaiue  moaif  whv  ]  "  (TypicalSIot: .Tf'c’r/’u/ Value} 

This  is  the  default  ninctioii  executed  after  the  actual  putting  within  CefauitPutvaiue  is 

performed.  (DeiauitPutvaiue  will  return  nil  if  this  function  does.)  This  function  is 

responsible  for  maintaining  KB  consistency,  using  updateinverse  and  updoieDepend  as 

appropriate.  It  will  also  recompute  the  value  of  any  essential  virtual  slot  which  was  just 
now  deleted;  and  will  determine  the  value  of  certain  other  slots  in  a  when-filled  manner. 

DefaultBeforeGetValue  [  Unit  Slot  others  ]  —  (T ypicalSlot: DcforeGei Value} 

This  is  the  default  function  executed  before  the  actual  getting  within  DefauitGetvaiue  is 
performed.  (DefauitGetvaiue  will  return  nil  if  this  function  does.)  Currently  tins  function 
simply  returns  r. 

DefaultBeforePutV  alue  [  Unit  Slot  oidVaiue  mpdif  why  ]  --  (TypicalSIot:  Before P:.i  Value} 

This  is  the  default  function  executed  before  the  actual  putting  within  a  DeiauitPutvaiue  is 
performed.  (DefauitPutvaiue  will  return  nil  if  this  function  docs.)  If  this  value  is  being 
enterred  by  die  user,  this  function  will  see  if  cidVaiue  is  an  acceptable  value,  using  (by 
default)  DefauItVerifyValue. 

DefaultDeleteClass  [  unit  ]  --  (TypicalClas s:\fyToKillMe} 

This  is  the  function  used  for  deleting  a  unit  which  represents  a  class.  In  addition  to  deleting 
inverse  links,  this  attempts  to  reclassify  every  example  of  this  set,  if  the  user  gives  the  go 
ahead. 

DefaultDeleteSlot  (  Unit  ]  --  (TypicaiSloc:il/y7oA77M/e} 

This  is  the  function  used  for  deleting  a  unit  which  represents  a  sioL  In  addition  to  deleting 
inverse  links,  this  attempts  to  remove  every  occurance  of  this  slot,  if  the  user  gives  the  go 
ahead. 

DefaukDe!eteU4S  [  unit  ]  --  (TypicalUnitForSlot:. MyToKillMe] 

This  is  the  function  used  for  deleting  a  unit  which  represents  a  slot’s  value.  In  addition  to 
deleting  inverse  links,  this  automatically  resets  the  value  of  the  slot  in  the  host  unit. 

DefailltDeleteUnit  [  Unit  ]  --  {Typicarniing:A/>'70A7/Mfe} 

This  is  the  default  function  used  for  deleting  units  in  general.  All  it  does  is  delete  inverse 
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links, 

DefaultGetValuef  unit  Slot  ethers  ]  --  {TypicalSlot:  7b(7e/Ka/ue} 

This  is  used  to  retrieve  (and  recompute,  if  necessary.)  the  value  of  the  Slot  slot  of  the  unit. 
Unit.  The  others  argument  contains  a  list  of  zero  or  more  values,  which  are  used  modify  this 
process;  for  efficiency  reasons.  The  next  paragraph  will  describe  what  DefauitGetvaiue  will  do 
when  others  is  NIL. 

After  performing  an  initial  type  check  on  its  first  two  arguments.  DefauitGetvaiue  will 
apply  siotBeioraGatvaiua  to  these  arguments.  If  that  returned  nonNiL,  the  function  stored  on 
SioiAduaiGatvaiua  is  called.  The  value  this  call  returns  will  be  saved.  Finally, 
$»oMitarGetvaiua  is  called  on  this  value,  Unit  and  Slot.  If  ail  of  these  subfunctions  succeed 
(i.e.  returned  nonNiL),  that  stGrcd  value  will  be  returned. 

Now  for  the  exceptions:  When  fast-get  is  included  in  others,  the  functions  on 
Siot  SatoreGat'/aiua  and  s\ot.AitarGatVaiue  will  not  be  executed.  Tlie  remaining  values  are  all 
used  to  speed  up  runtime  execution,  safeslot  and  safeunit  are  designed  to  perform  the 
MustSeSiot  and  MustBeUmt  checks,  on  unit  and  Slot,  respectively,  at  compile  time.  They  are 
only  applicable  if  that  parameter  is  a  constant,  i.e.  is  QUOTEd.  safe  is  the  same  as 
including  both  of  these,  verysafeslgt  and  verysafeunit  totally  avoid  calling  MustEa-- 
functions.  even  at  compile  time,  ccnstantslct  means  we  may  assume  the  values  stored  on 
the  unit  Slot  will  not  change  from  now  on.  ccnstantunit  makes  similiar  assumpuons  about 
the  unit.  umt.  These  can  be  undone  using  -.auticus.  which  insists  on  checking  tile  validity 
of  the  arguments. 


DefauitDeleteV  aiue  [  Unit  Slot  Valua  oidvaiue  why  ]  --  {TypicalSlot:  ToDeleieVclue} 

Tr.is  is  the  default  way  to  delete  an  old  vaiue.  It  ;s,  in  form,  essentially  identical  to 

CefauitAadValue. 

DefullltKillValue  [  unit  Slot  Value  context  «hy  ]  --  {TypicalSlot;  ToKlilVrdue} 

This  is  the  default  way  to  kill  a  slot  and  its  value.  It  is.  in  form,  essentially  identical  to 
CefauitPutvaiue.  only  using  the  rnFtrKiiimgvaiue  slot  of  the  ~ormat  slot  of  Slot,  rather  than  its 
PnrorPutting  Slot 


Defau!tPut\  a!ue[  unit  Slot  Value  oidvaiue  why  ]  --  {TypicatSlot:  TjPui Fume} 

This  function  is  used  for  putting  a  value  in  a  siot.  Usually,  it  first  calls  Siotifle/crePui vatua  on 
the  above  argument  list  augmented  with  one  additional  argument  described  beiew.  In  an 
errorfrec  run.  this  will  succeed  (i.e.  will  return  nonNiL.)  and  the  actual  writing  wiil  be 
performed  by  the  function  stored  on  Slot -ActuaiPutvaiua.  StoiudtarPutvaua  is  then  called  cn  the 
same  argument  list  as  Slot  SefcrePutvaius,  with  vaiue  substituted  for  outvalue. 

If  why  induces  Fast-Put.  the  before  and  after  functions  wiil  not  be  called.  The  extra 
argument  expected  by  these  functions  {Siot.se/oraPutvaiua  and  s\otAtterpjtvaiue)  appears 
before  why.  ••  single".  Its  value  should  be  nil  in  this  case,  and  the  other  parameters  should  be 
their  values  when  handed  to  Putvaiue.  (single’s  use  will  be  apparent  from  Adcvaiue, 
Deietevaiue,  and  Sucstvaiue,  defined  in  this  section.] 

Defau!;Rdnarr.sC!ass[  New  Name  cidCiass  ]  --  {TypicaiCuiss:.l/iTj/Jev:i:w.l/e} 

This  is  used  to  rename  a  unit  which  represents  a  class  to  a  new  name,  and  then  performing 
the  necessary  KB  updates.  It  wiil,  if  permitted,  scan  through  each  unit  loaded  it.  attempting 
to  perform  this  substitution.  Otherwise,  it  will  simply  follow  its  various  pointers,  and 
change  their  value  of  their  respective  back-pointers  :o  reflect  this  change.  It  will  then  ask  if 
it  should  update  first  each  function,  and  then  all  variables  in  the  system;  very  time 
consuming  processes. 

DcfaultRenameSlOtf  NewName  CidSiot  ]  -  (TypicalSlot: \fyToRe>wmeMe} 

This  is  used  to  rename  a  unit  which  represents  a  siot  to  a  new  name,  and  then  performing 
the  necessary  KB  updates.  It  will,  if  permitted,  scan  through  each  unit  loaded  it  attempting 
to  perform  this  substitution.  Otherwise,  it  wiil  do  two  Lhings:  First  like  Defau'tRenameurnt.  it 
will  follow  its  various  pointers,  and  change  their  value  of  their  rcspccuve  back-pointers  to 


reflect  this  change.  Second,  it  wil,  unless  prohibited,  go  to  each  unit  -.'.inch  has  this  slot, 
and  rename  that  slot.  It  will  then  ask  if  it  should  update  first  each  function,  and  then  all 
variables  in  the  system;  very  time  consuming  processes. 

DetaultRenameUnitf  NewName  OidUnit  ]  --  {TypicalUnit:Af>To/?e/iameA/e} 

This  is  used  to  rename  a  unit  which  represents  a  class  to  a  new  name,  and  then  performing 
the  necessary  KB  updates.  It  will,  if  permitted,  scan  dirough  each  unit  loaded  it,  attempting 
to  perform  this  substitution.  Otherwise,  it  will  simply  follow  its  various  pointers,  and 
change  their  value  of  their  respective  back-pointers  to  reflect  this  change.  It  will  then  ask  if 
it  should  update  first  each  function,  and  then  ail  variables  in  the  system;  a  very  time 
consuming  processes. 

DefaultSlOtCacherf  Unit  Slot  Value  Modification  Why  ]  --  {TypicalSlot:  ToCache} 

This  simply  stores  value  on  umt:s/cr,  using  ua-putvalue. 

DefaultSubStValue[  Unit  Slot  Value  Modification  why  ]  --  {TypicalSlot:  ToSubs: Value} 

This  is  the  default  way  to  substitute  a  new  value  for  an  old  one.  within  the  existing  value  of 
a  umt:S/of.  I. ike  DefauitPutvaiue,  it  will  call  DefauitBeforePutvaiue  before  performing  this 
addition.  (Here  die  value  of  smgie  will  be  nonniL.  and  is  used  to  indicate  the  nature  of  this 
alteration.)  Next  siavActuaiSuostveiue  will  be  called  on  diese  arguments;  and  if  this  succeeds, 
DefauitAtterPutvaiue  is  called  with  these  arguments. 

"extra"  tells  whether  a  single  value,  or  a  list  of  values,  are  being  changed:  and  whether  the 
current  value  of  Um!:S/of  should  be  recomputed  (using  sio tDetn)  :f  ,t  ;s  currently  empty 

DetaultVerifyValue[  unit  Slot  devalue  Modification  why  j  --  This  nanction  is  used  to  verify  that 
Modification  represents  a  legitimate  modification  to  the  value.  C'avaiue.  now  on  umrs/or.  It 
basically  calls  the  function  stored  on  the  veniyAu  slot  of  Slot  on  the  new  value,  if  this  change 
is  replacing  the  ail!  entry,  or  uses  Slot  venryci-iwenr.  if  we  arc  simply  adding  a  new  value.  If 
either  the  new  value,  or  cwvame.  was  a  value  format  then  it  calls  the  'Fr.ForVerfyiniiAll 
(respectively  FnFo r Venn : r. $F!erneni)  slot  of  the  unit  encoding  dial  value  format,  on  these 
argument,  including  that  just  computed  Slot  verityAH  (respectively  S:ot:Ver.'fy£/emenf). 

FindDefnult[  Unit  Slot  ether  ]  This  ascends  unit's  cnereaP'oip’vpes,  asking  each  such  typical  unit 
for  its  sio;  value.  Tae  first  one  it  finds  is  returned. 

Findlnversef  HLDem  KB  sv  ]  -  This  attempts  to  find  a  slot  which  is  the  inverse  of  the  slot  defined 
by  the  high  level  definition.  HLOetn.  If  no  such  slot  exists,  and  makes  sense  (i.e.  HLDefn  is 
invcrtable.)  n  asks  if  it  should  create  such  as  slot.  If  die  user  permits  this,  it  calls  CreateSict 
on  that  inverse,  kb  and  sv.  Otherwise  it  returns  that  high  level  definition. 

Finds lot[  HLDefn  kb  sv  j  ••  This  attempts  to  find  a  slot  which  is  defined  by  the  high  level 
definition,  HLDefn.  !f  found,  it  returns  the  name  of  drat  slot 

F:ndVa!ue(  Value  Unit  Slot  others  ]  --  This  auxiliary  function  is  used  to  determine  the  real  value  of 
umts/of  from  the  value  physically  stored  there,  assumed  to  be  the  first  argument,  value. 

FormattedValuepf  Value  ]  --  This  returns  nonNiL  if  Value  is  a  value  format  --  i.e.  is  of  the  form 
(•Do*  .). 

GetAccessFn[  Unit  Slot  other  default  ]  ••  L'scd  to  get  various  slots  associated  with  acccssing/updates 
values.  Returns  the  first  Of  {Unit  s/or,  FindCefault)  Unit  Slot  other  j.  default),  which  passes  lsOK( 
vai  ]. 

HLDefn  Parser!  ParscStr  ]  --  Returns  the  functional  specificaiion  derived  from  the  High  Level 
Definition,  ParseStr.  This  IS  used  by  FunctionSpec  Deln. 


HLTypeParseit  ParseStr  Num  Argnamc  ]  -*  This  returns  the  body  of  a  function  which  is 
designed  to  take  an  argument,  and  return  nonNiu  if  that  argument  is  of  the  type  denned  by 
ParseStr.  "Argname"  is  the  name  of  that  argument,  which  that  function  should  use.  "Num” 
is  either  FnFervantyingAii,  or  FnForvaniyingEiamem.  depending  on  whether  this  eventual  function 
should  take  a  single  element  of  the  type,  or  the  lull  value. 

IsEmpty[  Value  ]  --  Returns  nonNiL  if  value  is  one  of  RLL-l’s  substitute  values  used  for  nil  -  e.g. 

No  Entry  or  No  Entries. 

IsOk[  Value  ]  --  Return  nil  if  value  is  either  empty  or  needs  to  be  recomputed.  Otherwise  value  is 
returned. 


InitializeUnitf  Unit  Inheritance  ParentSat  ]  —  This  creates  a  new  unit,  named  Unit,  which  is  a 
descendent  of  each  member  of  the  ParentSet.  by  die  inheritance,  innentance.  Its  algoridim: 
Apply  :nheritance:GetPoaaifi/eS;o(s  to  ParemSet.  Tnis  produces  a  list  whose  elements  arc  of  die 
form  (siotname  location  where.,  ...  whereN).  "’ocation'•  is  the  name  of  the  unit  whose  reinitialize 
slot  should  be  called,  on  Unit  and  siotname,  to  initialize  that  slot's  value.  Each  «neret  is  the 

name  of  a  prototype  of  this  new  unit,  in  which  the  sIol  siotname,  is  first  defined,  mtiaiizeunit 
then  maps  along  this  ItsL  calling  imtiaiizeSiot  on  siotname.  ParentSet,  location,  and  the  list 
(where,  ...  where^). 

InitiaiizeSlOtf  Unit  Slot  Location  Prctcs  ]  --  This  invokes  Location: reinitialize  on  Unit,  Slot  ana  P'otoa 
(Protos  is  that  Where- List).  This  may  use  the  global  variables:  uParemSet.  which  is  the 
parents  of  dus  unit,  and  umnentance,  which  is  die  type  of  inheritance  used. 

IntersectDT[  o~:st  ]  --  Each  eiemcr.t  of  OTiist  is  a  datatype  specification:  this  function  returns  a 
new  type  specification,  which  is  the  intersection  of  ail  of  these  -  ;.e.  whose  implied 
accepur.ee  criteria  is  die  AND-juncdcn  of  eac.n  member  of  die  input  list  of  datatypes. 


Lv/errHLDf  ruzetn 


This  rcrarns  die  high  level  csfiucn  which  computes  the  inverse  function 


from  the  one  tmoiied  bv  HUCe'n.  or  nil  if  such  a  rune  lien  ,s  ur.ee fined 


MapSl0t£[  Pn  j  -  Maps  along  the  slots  of  unit,  applying  the  fiir.cr.or..  to  each  slot  ana  its  value. 

MapLnitSf  Pn  kbs  ]  --  Maps  along  all  of  the  unit  in  mv  of  die  Ksow’edge  Bases  .sied  n  -ts. 
applying  the  function.  Pn.  to  each,  if  »&*  is  nil.  appiic*  =n  to  every  resident  ur.:L  A 
companion  function.  MaoL'n.tsO  quotes  its  arguments.  If  tr.e  first  argument  .5  r.ct  a 
LAMBDA  expression,  the  second  argument  mould  re  the  name  T  die  .ar.ah'e  which  .s 
bound  to  the  name  of  die  current  uruL  This  mapping  exter.es  to  every  res. dent  amt. 

MustCcmputept  value  ]  --  Returns  nonNiu  if  .aiue  .r.dicates  :t  :  -  :  .  menu  .  e  :  .1  .e 
RecomputeMe  or  nil.  fvai»e  is  usually  some  jn.i  Sic  e.v.r  . 

Ne*.vlsa[  NewL'nit  oirentumo  K9  ]  —  Th.s  creates  a  revs  •..nit.  n*  *  •  ■  i 

Paremumts.  It  is  entered  into  die  Knowledge  fi-sc  ^3 


NewKB[  NewKB  ]  -  This  creates  and  initializes  a  r.e 


r > r.  a  cz .'c 


NewSubCIaSS[  NewUnit  Parentunits  K8  ]  --  This  creates  a  new  an.t,  1.  as  .. 

Parensunits.  It  is  entered  into  the  Knowledze  Base  -6 


NewTypEx[  NewUnit  Parentunit  kb  ]  --  This  creates  a  new  unit.  New.  mt.  as 
ParentUmt  It  is  catered  .nto  the  Knowicdce  Base  kb 


*  *  —  1  *  X  k.  L 
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NoiRemOvable[  Unit  Slot  Value  ?  ?  ]  --  This  returns  nonML  if  the  value  of  Umt.s.ut  must  NOT  be 
removed  --  i.e.  if  it  is  essential. 

NU[  NewUnit  FromUnit  KB  ]  --  This  creates  a  new  unit,  NewUmt.  essentially  identical  to  Fromumt  (after 
substituting  Newunit  for  each  occurance  of  Fromumt).  It  is  entered  into  the  Knowledge  Base 

K8. 

OverallStartUp[  ]  --  This  asks  the  user  if  he  wishes  to  start  the  system;  and  does  so  if  allowed. 
It  also  doej  various  other  clean-up  jobs,  appropriate  for  restarting  a  suspended  version  of 
the  RLL-1  system  (i.e.  after  a  SYSOUT).. 

RemoveVirtualSlots[  unitList  ]  -•  This  walks  along  the  unit  in  umtList.  removing  their  extraneous 
virtual  slots.  (Note  a  slot  is  essential  if  it  is  included  in  the  unit’s  MyEssentialVirtualSlots 
list,  or  under  a  few  other  hacky  conditions.  See  the  function.  NotRemovabie.)  There  are 
several  situations  in  which  the  user  is  prompted  --  such  as  when  an  undefined  slot 
encountered,  or  when  this  unit  lacked  some  essential  slot 

StandardFinishUpt  KB  args  ]  **  (Ty p ical S ca tu s :  1  fVicn I Vritm g.V et work } 

This  function  is  called  when  the  knowledge  base,  kb,  is  written  out.  and  closed.  It  first  asks 
if  extraneous  virtual  slots  should  be  removed,  then,  (if  there  arc  other  currently  open 
knowledge  bases.)  if  kb  should  be  disconnected,  and  r'nally.  if  this  knowledge  base  should 
be  diagnosed.  These  inquiries  can  be  avoided  if  (car  (nth  args  ■))  is  v  (indicating  an 
affirmative  response)  or  n  (negative). 

Standards tartUpf  KB  args  ]  **  {TypicalStatus:  WhenOpennirgNenvork} 

This  function  is  called  when  the  knowledge  base.  kb.  is  openned.  It  first  does  various 
overhead  tasks,  such  as  initializing  and  updating  variables.  It  then  considers  adding  inverse 
links  to  all  the  units  of  KB,  to  reconnect  to  the  other  knowledge  bases  currently  in  core. 
This  time  consuming  process  is  performed  if  there  is  some  active  knowledge  base  currently 
unconnected  to  kb.  and  die  user  permits  it.  This  inquiry  can  be  avoided  if  (Cap  argsi  =  Y  (to 
connect  the  links  if  necessary)  or  n  (not  to  reconnect,  period). 

STARTQ  --  This  actually  begins  RLL-1.  It  handles  all  of  the  overhead,  then  loaus  in  the  desired 
knowledge  bases. 

UnionDT[  DTiist  ]  —Each  element  of  DTiist  is  a  datatype  specification:  this  function  returns  a  new 
type  specification,  which  is  the  union  of  all  of  these  -  i.e.  whose  implied  acceptance  criteria 
is  the  OR-junction  of  each  member  of  die  input  list  of  datatypes. 

UpdateDepend[  Unit  Slot  Newvaiue  Modification  why  ]  "This  is  used  to  update  the  knowledge  base, 
to  reflect  the  Modification  made  to  UnittS/of.  If  appropriate,  it  cails  the  function  stored  on 
Siot:KSUpda;es,  on  the  above  quintet  of  arguments. 

Updatelnversef  Unit  Slot  NewValue  Modification  why  addV  delV  ]  —  This  is  used  to  update  the 
knowledge  base,  to  reflect  the  Modification  made  to  Unit:S/ct.  If  Slot  has  an  inverse,  die  back 
pointers  arc  changed,  as  appropriate. 


0.3:  Convenience  Functions 


Advisor[  ]  —  This  advises  several  functions,  for  several  reasons.  See  Section  D.5. 
EvcryFnf  List  Fn  J  --  This  is  like  mapcar,  except  it  stops  if  applying  Fn  to  any  element  returns  nil. 
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IntersectN[  List.,  ust2  ...  ustN  ]  -  This  is  the  .V-ary  form  of  the  bum:;.  intersect. 

Maplnsert[  ust  Fn  ]  --  This  is  like  SubSetFn,  except  it  breaks  (i.e.  gives  a  waning  message)  if  any 
element  of  Fn  fails  isOk,  and  it  uses  less  LIST-space. 

Map\lerge[  Lst  Fn  ]  --  Tnis  merges  the  results  of  applying  Fn  to  each  element  of  ust.  (Note  it 
breaks  (i.e.  gives  a  warning  message)  if  any  such  element  fails  isCk.) 

MapUnion[  list  Fn  ]  --  This  unions  the  results  of  applying  Fn  to  each  element  of  List.  (Note  it 
breaks  (i.e.  gives  a  warning  message)  if  any  such  element  fails  isCk.) 

MapUiltilOk[  List  Fn  ]  --  This  returns  the  first  .'sCk  result  of  applying  Fn  to  an  element  of  List. 
(Note  it  breaks  (i.e.  gives  a  warning  message)  if  any  such  element  fails  isCk.) 

MergeN[  List1  Ust2  ...  ListN  ]  --  This  is  the  .V-ary  form  of  Lhe  binary  merge. 

ReadYesNo[  Literalstring  ]  --  Prints  out  LiteraiStnng  as  prompt,  then  requests  input.  Returns  7  if 
user  responds  with  "Yes";  nil  otherwise. 

SOS[  new?  ]  *■  For  debugging,  we  maintain  a  cr'BBlefile  recording  die  activity  of  each  session. 
Every  unum-between-scs  user  responses,  the  iu  action  scs-u.  lying  in  prcmptcharfcrms. 
calls  on  SOS  to  close  and  reopen  the  current  dnboie  fiie,  named  CnbcteName.  In  addihen.  if 
this  is  the  uNUM-eET.v=EN-3CS'th  time  this  funcuon  has  been  coiled,  it  asks  die  user  if  he 
wishes  :o  syscut  now. 

If  new?  is  non.NiL.  scs  also  finds  a  new  name  for  die  cribble  file,  before  doing  ail  die 

rest. 

Setting  uCKtaSCS  :o  nil  curas  orT  this  dribbling. 

SomeFnf  List  Fn  ]  --  This  is  like  some,  except  it  returns  the  value  of  cnfx)  of  die  first  element 
x€ust  which  returns  nor.NiL,  rather  than  the  sublist  of  List  which  begins  with  x. 

Si:bSdlFn[  List  Fn  ]  --  This  is  like  sueset,  except  it  returns  the  list  of  values,  Fn(x),  for  each 
element  *€L.st  which  returns  ncnNiL,  rather  than  die  subiist  of  List  containing  such  <. 

Trccsr[  FnName  stk  ]  --  This  is  an  aide  to  debugging,  especially  useful  when  a  recursive  function 
seems  to  be  in  an  infinite  descent  It  advises  this  function  to  maintain  a  stack,  on  the 
variable  stk  (defaulted  to  (pack*  FnName  ’STK)  if  omitted)  of  outstanding  arguments  passed 
to  this  function. 

Un;onN[  List1  Ust2  ...  ListN  J  --  This  is  the  .v-ary  form  of  the  binary  unicn. 

WhatKB[  Name  kb  must  might  te-kb  ]  --  This  is  used  to  find  the  knowledge  base  in  which  to  enter 
the  new  thing,  named  "Name".  If  kb  is  supplied,  and  is  a  member  of  the  uf  networks,  that 
value  is  returned.  Otherwise,  if  there  is  only  one  knowledge  base  open,  that  value  will  be 
returned.  (If  must  is  nil,  indientiong  this  new  thing  need  not  be  affiliated,  the  user  is  first 
asked  if  this  is  appropriate.  Otherwise,  he  is  just  informed  that  this  affiliation  has 
happened.)  If  nonNiL,  the  value  of  might-be-kb  is  suggested  to  the  user,  who  can  approve  it 
by  responding  "Y". 

WhichFnList[  FnName  ]  --  This  returns  the  name  of  the  list  on  which  the  function.  FnName.  is 
located.  (Note  the  utility  functions  have  been  split  up  into  several  logically  distinct  classes, 
each  with  its  own  list.  Also  most  knowledge  bases  come  with  Lheir  own  such  list  of 
functions.) 


WhoIsUser[  vai  ]  --  This  attempts  to  find  {and  return)  the  unit  under  AnyOcr  which  represents 
vai  (which  defaults  to  the  current  user).  If  none  is  found,  and  if  allowed,  it  will  create  a 
new  unit  for  this  user,  and  return  that  value. 


F.4:  Advised  Functions 

Except  where  otherwise  noted,  every  bit  of  this  advice  is  set  in  Advisor,  and  is  permanent. 

LOGOUT  is  told  to  close  tire  dribble  file,  and  checks  if  the  current  state  of  this  LISP  session 
should  be  released  --  i.e.  if  any  writes  onto  a  KB  have  been  performed  since  the  last  SYSOUT. 

As  each  function  is  defined,  the  user  is  asked  if  in  which  file  he  wishes  to  store  this  function,  ’'his  K3 
management  is  done  by  the  advise  to  \PUTD,  PUTD,  \MQVD  and  MOVD.  LOAD.  ADVISE,  READVISE  are  ali  told 
to  tell  vPUTD's  advice  not  to  try  to  save  the  temporary  functions  they  generate. 

edite  has  been  advised  to  do  two  things:  First,  it  knows  not  to  bother  xputd’s  advise  when  a 
function's  source  code  is  read  in.  Secondly,  it  warns  the  user  if  he  tries  to  use  editp  to  edit  a  unit 
that  his  changes  not  only  might  noc  be  saved,  but  he  might  really  foul  things  up  as  wclL 

The  only  other  function  RLL-1  ever  advises  in  upputunit.  This  is  done  by  cieanws,  and  is 
usually  remo"’d  the  next  time  upputunit  is  called.  This  advise  tells  the  user  some  unit  is  about  to 
written  onto  the  external  *.page  file;  and  permits  him  to  enter  readonly  mode  at  this  poinL 


F.5:  Global  Variables 

PROMPTCHARFORMS  has  been  changed,  by  adding  (SCS-ME).  This  function  helps  maintain 
the  dribble  file. 

AFTERSYSOUTFORMS,  BEFORESYSOUTFORMS  have  been  added  to.  so  the  right 
things  happen  when  tire  user  does  a  sysout  (i.e.  '.page  files  get  saved.  ...) 

BeenStarted  is  t  if  the  RLL-1  system  has  been  started  already,  otherwise  nil. 

DribblcN'ame,  uAUDribbleFiles  arc  used  by  sos,  to  record  the  currenL  and  ail  previous 
dnbbie  files  used,  respectively.  uAUDntsbieFites  is  printed  out  by  the  advice  to  logout. 

uNUM-BETWEEN-S OS  stores  a  value  sos-me  uses  to  decide  when  it  is  time  to  call  SOS. 
Cu.Tcnlty  set  to  25.  (SOS  also  uses  it  to  decide  when  to  suggest  the  user  sysout.) 

uAHUsers  stores  all  users  who  have  used  this  sysouL  and  written  out  any  changed  units. 

uSYSOUTNAME  is  the  name  of  the  last  sysout  performed:  or  RLL-1. exe  if  none  have  been 
done. 

RenamedUnitS,  DeletedUnitS  store  lists  of  units  which  have  been  renamed  (as  dotted  pairs)  or 
deleted,  respectively. 

WORRIES  stores  text  describing  past  events  which  might  later  lead  to  trouble  -  i.e.  they  were 
not  serious  enough  to  break  on,  but  they  still  should  not  have  happened. 

KernelKB  is  the  name  of  the  starting,  "top  most"  knowledge  base  --  currently,  of  course,  RLL-1. 

U Value,  uContext  are  used  when  impure  is  one  of  the  values  listed  by  others,  when  passed  to 
OefauitGetvaiue.  They  are  set  to  the  value  and  unit  on  which  this  value  was  found, 
respectively.  <uContext  may  be  meaningless  now.> 

DefaultGetValueOptions  is  used  by  OefauitGetvaiue  as  the  default  value  for  others,  when  that 
argument  is  nil. 


G.  Appendix  -  Sample  Session 


This  appendix  shows  a  session  (he  author  had  with  the  current  RLL-1  system.  This  Is 
designed  to  provide  a  flavor  of  RLL-Vs  capabilities,  as  well  as  describe  the  formats  for  Its 
various  commands.  Comments  are  shown  enclosed  In  braces.  "()"s. 
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Conclusion 

<<<<  1.  Starting  the  system  >>>> 

[I  adviced  USERNAME  to  return  "NewUser"  for  this.] 

<3<CSO.IA>OEMO.EXE 

Shall  I  start  the  RLL  system  now?  yes 

***  Am  opening  Oribble  file:  TRACE.Augia  [18-Aug-SO  13:38:45] 
Reading  in  RLLSTATUS  now. 

Opening  knowledge  base  <CSD.RLL>RLL.K8.12 
Opening  paging  file  <CSD.IA>RLL.PAGE.1 
Loading  unit  RLL.UNIT1N0EX 
Loading  unit  RLL.STATUS 

Last  written  by  (CSO.GREINER  16-Aug-80  22:18:15) 

{{Loading  unit  KBsFNS 
Loading  unit  Alllsas 
Loading  unit  ToGetValue 
Loading  unit  OrderedPrototypes 
Loading  unit  Oefn 
Loading  unit  Prototypes 
Loading  unit  MySlotsNowOrdered 
Loading  unit  TypicaiPrimSIot 
Loading  unit  TypicalSIot 
Loading  unit  ReforeGetValue 
Loading  unit  AfterGetValue 
Loading  unit  KBsVARS 
Loading  unit  KBsConnectedTo}} 

This  kb,  RLL  is  already  connected  to  ail  of  (RLL). 

Do  you  wish  to  read  In  any  Knowledge  Bases?  yes 

{{Loading  unit  AllExamples 
Loading  unit  AnyUser 
Loading  unit  UserNames 
Loading  unit  RussGreiner 
Loading  unit  DougLenat 
Loading  unit  LarryHInes 
Loading  unit  AndyFreeman}} 

I  don't  know  who  you  are! 

Shall  i  create  a  unit  to  store  information  about  you?  yes 

Is  NewUser  an  appropriate  name?  no 

What  name  would  you  prefer?  Visitor 

({Loading  unit  GetPossibleSlotsFn 
Loading  unit  lExampies 
Loading  unit  LispFn 
Loading  unit  TypicaiVirtualSIot 
Loading  unit  PossibleSiotsOflExamples 


Loading  unit  StoredAUst 
Loading  unit  GenlsModels 
Loading  unit  Superclass1 2 3 4 5 6 7 
Loading  unit  TypicalExample 
Loading  unit  Anything 
Loading  unit  AnyCT&U 
Loading  unit  NewPossibleSlots 
Loading  unit  TypIcalCT&U 
Loading  unit  MyCreator 
Loading  unit  MyTimeOfCreation 
Loading  unit  MyToKillMe 
Loading  unit  TypicalAccessSlot 
Loading  unit  MyToRenameMe 
Loading  unit  MyEssentialVirtuaiSlots 
Loading  unit  MySensibleSlots 
Loading  unit  MyCreatedAs 
Loading  unit  MySlots 
Loading  unit  TypfcaiThing 
Loading  unit  Specializations 
Loading  unit  TypicaiUnitFn 
Loading  unit  TypicaiStorableFn 
Loading  unit  TypicaiFunction 
Loading  unit  TypicalProcess 
Loading  unit  Isa 
Loading  unit  AilGenis 
Loading  unit  AllSpecs 
Loading  unit  Characteristics 
Loading  unit  Oescr 
Loading  unit  TypicalUser 
Loading  unit  InformalName 
Loading  unit  UsuaiKSs 
Loading  unit  WritingOptions 
Loading  unit  OpenningOptions 
Loading  unit  OrderForTolnit 
Loading  unit  TypicalSSELFSSIot 
Loading  unit  ToAddValue 
Loading  unit  BeforePutValue 
Loading  unit  VerifyElement 
Loading  unit  Format 
Loading  unit  FnForPutting 
Loading  unit  FSet 
Loading  unit  SuperTypEx* 

Loading  unit  TypicalExampieOf 
Loading  unit  Superclass 
Loading  unit  FnForAdding 
Loading  unit  ToCache 
Loading  unit  ToPutValue 
Loading  unit  AfterPutValue 
Loading  unit  Inverse 
Loading  unit  KBUpdates 
Loading  unit  Examples 
Loading  unit  AIITypicaiExampleOfs}} 

1  —  RESOL 

2  —  GENLINFO 

3  —  BIOLOGY 

4  —  SETS 

5  —  MATH 

6  —  NUMBER 

7  —  HOBBIT 
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8  —  HEURS 

9  —  OLD 

10  —  EURISKO 


Enter  the  numbers  of  the  ones  you  wish  to  use:  2 

{{Loading  unit  FunctionSpec 
Loading  unit  HlghLevelOefn 
Loading  unit  DomainType 
Loading  unit  FList}} 

Opening  knowledge  base  <CSO.RLL>GENL1NFO.KB.4 

Opening  paging  file  <CSD.IA>GENLINF0.PAGE.1 

{{Loading  unit  GENLINFO.UNITINDEX 
Loading  unit  GENLINFO.STATUS}} 

Last  written  by  (CSO.HINES  31-Jul-80  15:33:24) 

Network  RLL  already  open. 

This  kb,  GENUNFO  is  already  connected  to  ail  of  (GENLINFO  RLL). 
KBs  loaded. 

«CSO.IA>OEMO.EXE.3  .  <LISP>LISP.EXE.1 33) 

<<<<  2.  What  was  created?  >>» 

{Turn  off  those  obnoxious  Loading, ...  messages) 

99-(5ETQ  UP.TRACEFILE  NIL] 

(UP.TRACEFILE  reset) 

NIL 


{Now  look  at  what  was  just  created) 

1 00-E0ITU(Visltor] 
edit 

98*PP 

{Note  this  is  a  property  list,  of  the  form  (slotl  value  1  siotl  value2  ...) 

(Isa  (AnyUser) 

UserNames  ("NewUser") 

Alllsas  (AnyCT&U  Anything  AnyUser) 

Prototypes  (TypicalUser  TypIcalCT&U  TypicalThing) 

MySlotsNowOrdered  (OrderedPrototypes) 

{NOTE:  Slots  beginning  with  "My"  are  syntactic.) 

UsualKBs  (RLL) 

MyCreatedAs  (lExamples  (AnyUser)) 

MyTimeOfCreatlon  "18-Aug-80  13:40:23" 

MyCreator  "NewUser" 

OpennlngOptions  NoEntries 

MySensibleSlots  (Descr  Characteristics  Prototypes  AllSpecs  AHGenls  Alllsas  Isa 
OrderedPrototypes  Specializations  MySlots  MyCreatedAs 
MySensibleSlots  MySlotsNowOrdered  MyEssentialVirtualSiots 
MyToRenameMe  MyToKillMe  MyTimeOfCreatlon  MyCreator  UserNames 
OpennlngOptions  WritingOptions  UsualKBs  InformalName)) 


96*ok 

Nothing  changed. 
Visitor 


<<<<  3.  Looking  around  >>>> 

{Let's  see  the  top  level  units:} 

1  -OKAnything  S  2] 

Note  the  trace  flag  has  been  turned  off. 

Anything 

Any AT  4  U 

AnyAbstractThing 

AnyCT4U 

AnyConcreteThlng 

AnyUnit 


IOONE! 

{This  showed  the  subclasses  of  Anything,  down  (a  total  of)  two  levels 
The  ...& U  units  are  hacks,  to  store  both  the  unit  and  its  meta-unit 
in  the  same  physical  unit. 

More  interesting  is:} 

2*-DI(AnyCT4U  S  2] 

Note  the  trace  flag  has  been  turned  off. 

AnyCT4U 

AnyClassOfObjects 

AnyOatatype 

Any  DecomposableOb  ject 

AnyFormat 

Anylnheritance 

AnylntensionaiObject 

AnyOverhead 

AnyProcess 

AnyUnit 

AnyUser 


1DONE! 


<<<<  4,  Creating  a  new  class  >>>> 

{Let  us  create  a  new  unit  -  which  refers  to  people:} 
4«-NewSpec(AnyPerson] 

Is  a  ISubClass  of:  AnyCT4U 

Please  enter  the  Knowledge  Base  In  which  to  store  AnyPerson:  GENLINFO 

Is  the  format  of  (LAMBDA  (units  si?  oth?)  (MapUnlon  (IsOk  units) 
(FUNCTION  (LAMBOA  (x)  (GetValue  x  (QUOTE  Prototypes)  (AddOnCharacter 
oth?  (QUOTE  VERYSAFESLOT)))))))  a  list? 

yes 


{Here,  RLL  Is  asking  about  the  Format  of  the  expression  (LAMBOA  ...). 


G-e 


This  was  because  it  didn't  know  about  the  function  "MapUnion". 
it  will,  later  in  RLL's  development.} 

You  are  about  to  write  on  an  external  file. 

Oo  you  want  to  enter  Readonly  mode?  no 

{Before  the  first  write,  RLL  gives  the  user  a  chance  to  leave 
the  systems  unmodified.  Here,  we  told  RLL  to  go  ahead.) 

*  Initialized  AnyPerson  * 
edit 

99*p 

(Isa  (AnyClassOfObjects) 

Alllsas  (AnyCT&U  Anything  AnyClassOfObjects) 

Prototypes  (TypicalClass  TypicalCT&U  TypicalThing) 

MySlotsNowOrdered  (OrderedPrototypes)  _ 

MyCreatedAs  (ISubClass  &) 

MyTimeOf Creation  "18-Aug-80  13:60:28" 

MyCreator  "NewUser" 

TotalSoFar  0 
Superclass  (AnyCT&U) 

MySensibieSlots  (Descr  Characteristics  Prototypes  AllSpecs  AIIGenls 

Alllsas  Isa  OrderedPrototypes  Specializations  MySlots  MyCreatedAs 
MySensibieSlots  MySlotsNowOrdered  MyEssentialVirtualSIots 
MyToRenameMe  MyToKillMe  MyTimeOfCreation  MyCreator  TotalSoFar  --)) 
{  t  These  are  slots  which  are  well  defined  for  this  unit.) 

■■■  Am  re-opening  Dribble  file:  TRACE.Aug18  [18-Aug-80  13:63:01] 

ft  A  dribble  file  records  the  session.  (You're  looking  at  It  now.] 

{  This  class  unit  looks  } 

1 G0"ok 
Verifying  slots 
AnyPerson 


<<<<  5.  Creating  a  new  typical  example ,  for  a  class  >>>> 

(Now  we'll  create  a  unit  which  hold  facts  typically  true  of  any  person. 

(That  is,  default  values;  as  well  as  a  list  of  new  slots  to  be  inherited 
by  every  new  person.]} 

6*-NewTypEx] 

Name:  TypIcolPerson 
Is  a  ITypEx  of:  AnyPerson 

Please  enter  the  Knowledge  Base  in  which  to  store  TypicalPerson:  GENUNFO 

Is  the  format  of  (LAMBDA  (units  si?  oth?)  (MapUnion  (IsOk  units)  (FUNCTION  (LAMBDA 
(uNITcomp  slOTcomp  oTHERcomp)  (OR  (MapUnion  (GetValue  uNITcomp  (QUOTE  GenlsModels) 
(AddOnCharocter  oTHERcomp  (QUOTE  VERYSAFESLOT))) 

(LAMBDA  (x)  (GetValue  x  (QUOTE  Prototypes)  (AddOnCharacter  oTHERcomp 
(QUOTE  VERYSAFESLOT))))))  NoEntries))))) 
a  list? 
yes 

(No,  RLL  still  doesn't  know  about  MapUnion.} 

Shall  I  create  a  slot  with  the  high  level  defn: 

(Composition  TypicaiExample  Subclass1)?  no 


{To  update  inverse  links,  it  has  to  "invert"  each  relevant  slot. 

For  this  it  uses  that  slot’s  high  level  definition...  which  goes  to 
the  slot  combiners  involved,  ... 

Above  it  was  Inverting  GenlsModels,  whose  HighLevelOefn  was 
(Composition  Superclass*  TypicaiExampleOf] 

RLL  was  asking  whether  to  preserve  this  definition  as  or  slot,  or  not. 

I  said  NO.} 

*  Initialized  TypicaiPerson  * 
edit 

1  *P 

(Isa  (AnyArchetype) 

TypicaiExampleOf  AnyPerson 
NewPossibleSlots  NoEntries 

Alllsas  (AnylntensionalObject  AnyCT&U  Anything  AnyAT&U  AnyArchetype) 
Prototypes  (TypicalTypicalEx  TypicalCTiU  TypicaiAT&U  TypicalThing) 
MySlotsNowOrdored  (OrderedPrototypes) 

MyCreatedAs  (ITypEx  8.) 

MyTimeOfCreation  "18-Aug-80  13:59:43" 

MyCreator  "NewUser" 

MySensibieSlots  (Oescr  Characteristics  Prototypes  AllSpecs 

AIIGenls  Alllsas  Isa  OrderedPrototypes  Specializations  MyStots 
MyCreatedAs  MySensibieSlots  MySIotsNowOrdered 
MyEssentiaiVirtualSIats  MyToRenameMe  MyToKillMe  MyTimeOfCreation 
MyCreator  SubTypEx*  SuperTypEx*  SubTypEx  SuperTypEx 
TypicaiExampleOf  NewPossibleSlots  PossibieSlots)) 

{r  These  slots  are  pertanent  to  all  prototypes,  such  as  this  TypicaiPerson. 
RLL  determined  these  using  from  the  prototypical  prototype, 
TypicalTypicalEx.} 

2*5  up  p 

...  NewPossibleSlots  NoEntries 

{t  Its  value  lists  the  new  siots,  which  ail  people  will  have.} 

{Currently  it  is  empty. 

(Note  we  use  "NoEntries"  to  indicate  a  list  we  know  Is  empty, 
leaving  NIL  to  mean  a  value  we  simply  don't  know.]} 

3*(2  (Mother  Husband)) 

(Now  new  examples  of  AnyPerson  will  have  these  two  slots.} 

4*bk  (b  Mother  NoEntry  Husband  NoEntry] 

5*p 

...  Mother  NoEntry  Husband  NoEntry  NewPossibleSlots  (Mother  Husband)  ... 

{(NoEntry  is  like  NoEntries  in  purpose.  It,  however, 
refers  to  the  absense  of  a  single  entry.] 

Here,  it  is  used  to  Indicate  that  TypicaiPerson  cannot 

provide  any  sort  of  default  information  about  a  new  unit's  relatives. 

It  also  causes  RLL  to  consider  creating  a  Mother  (resp.  Husband) 
type  of  slot.  This  Is  done  in  EDITU.} 


C*ok 


6.  Slot  verification  by  EDfTU  »» 
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Verifying  slots 

Your  attempted  slot  name  Mother  is  NOT  even  a  unit.  Should  It  be?  yes 

{This  will  create  a  new  unit,  to  house  facts  about  the  "Mother"  slot.) 

What  should  the  Isa  link  for  this  Mother  link  be? 

{It  will  be  created  as  a  new  Primitive  slot  -  hence  the  "P"  response  above.) 

Expecting  one  of: 

(P  V  A  *) 

What  should  the  Isa  link  for  this  Mother  link  be?  P 
Please  enter  the  Knowledge  Base  In  which  to  store  Mother:  GENLINFO 
*  Initialized  Mother  * 
edit 

8"pp 

(Isa  (PrimSIot) 

Alllsas  (AnySlot  AnyUnitListFn  AnyFunction  AnyCT&U  Anything  AnyProcess 
AnyStorableFn  AnyUnitFunction  PrimSIot) 

Prototypes  (TypicalPrimSIot  TypicalSIot  TypicalUnitFn  TypicalStorableFn 
TypicalFunction  TypicalProcess  TypicalCT&U  TypicalThing) 

MySlotsNowOrdered  (OrderedPrototypes) 

MyCreatedAs  (lExamples  (PrimSIot)) 

MyTimeOf Creation  "18-Aug-80  14:10:56" 

MyCreator  "NewUser" 

Format  ("Do*  FOneOf  FSIngleton  FSet  FUst  FOrderedSet  FBag) 

{We'll  see  soon  this  special  vaiue,  »,  will  be  useful.) 

Datatype  (NonNILType) 

MySensibleSlots  (Descr  Characteristics  Prototypes  AllSpecs  AIIGenls  Alllsas  Isa 
OrderedPrototypes  Specializations  MySlots  MyCreatedAs 
MySensibleSlots  MySlotsNowOrdered  MyEssentialVirtualSIots 
MyToRenameMe  MyToKillMe  MyTimeOfCreation  MyCreator  WhatToProcess 
HowToProcess  LispFn  lUseDefnOf  lUseCVOf  DefnUsedBy  CVUsedBy 
FunctionCharacter  RangeType  OomainType  Preconditions  Range  Domain 
Definition  FunctionSpec  Format  Datatype  DataRange  Defn 
HighLevelOefn  IsBuiltFrom  UsingFunctions  SlotsBuiltFrom 
UsingFunctionals  UnitsBuiltFrom  SlotsUsedlnBuildlng  ToLookUp 
ToCache  UspFnForStoredFn  StoredAList  ToConfirmValue 
UsingSlotCombiners  ToGetValue  HandDoneS8F  AIIS8F  VerifyElement 
VerifyAII  ToSubstValue  ToDeleteVaiue  ToAddValue  MakesSenseFor 
SubSlot*  SuperSlot*  SubSlot  SuperSlot  Tolnitlalize  ToPutValue 
OrderForToinit  KBUpdates  Inverse  IsEssentlalFor)) 

8*f  Datatype 
9"P 

...  Datatype  (NonNILType)  ... 

9*(2  (UnltType)  DataRange  (*P  AnyPerson] 

{This  ''UnitType"  indicates  the  value  of  U;Mother  will  be  a  unit; 
and  the  DataRange  restricts  that,  to  say  that  unit  will  descend 
from  AnyPerson) 

1 0*t  f  Format 

12*2  p 

(*0o*  FOneOf  FSingleton  FSet  FUst  FOrderedSet  FBag) 

{IE  The  format  must  be  one  of  these. 

We'll  see  soon  that  each  of  these  formats  Is  really  a  unit.) 

13*xtr  3 

{This  means  U:Mother  will  be  filled  with  a  single  entry. 

That's  all  I  want  to  say  about  Mothers,  at  this  time.) 

1 4*ok 

Verifying  slots 

{We  now  pop  back  to  editing  TypicalPerson,  and  find  another  non-slot:) 


Your  attempted  slot  name  Husbond  Is  NOT  even  a  unit.  Should  It  be?  yes 
What  should  the  Isa  link  for  this  Husband  link  be?  P 
Please  enter  the  Knowledge  Base  in  which  to  store  Husband:  GENLINFO 
*  Initialized  Husband  ■ 
edit 

{To  fix  Husband's  range  specification-.} 

15*f  Datatype 

16*2  p 

(NonNILType) 

1  7*:  (UnitType)  DataRange  (*P  AnyPerscn] 

18*ok 

Verifying  slots 

What  should  the  value  of  Husband-.Format  be? 


Expecting  one  of: 

(FSingleton  FSet  FUst  FOrderedSet  F3ag) 

What  should  the  value  of  Husband:Format  be?  FSingleton 
TypicalPerson 

{Note  it  asked  for  Husband's  format,  as  I  hadn't  specified  it;  and  RLL 
figured  it  would  be  needed  eventually.} 

<<<<  7.  Examining  unit  which  represent  Formats  >>>> 

{Note  first  that  there  are  two  subclasses  of  formats:} 
30-SubCIass(AnyFormat] 

(AnySlotFormat  AnyValueFormat) 

{The  interesting  one  Is} 

31  *-£xamples(AnySlotFormat] 

(FSingleton  FUst  FSet  FOrderedSet  F3ag  FListN) 

{Each  of  these  Is  a  bonafide  unit:} 

32-EDITU(FSet] 

edit 

66*p 

(Isa  (AnySlotFormat) 

FnForVerifyingAII  (LAMBDA  4  4) 

FnForVerifyingElement  (LAM80A  4  4) 

FormatCharacter  (MayBeEmpty  NonOrdered  NoDuplicated  ArbitraryNumberOfEntries) 
FnForAdding  (LAMBOA  &  4) 

FnForDeleting  (LAMBDA  &  4  2.) 

FnForSubstituting  (LAM80A  4  4  4) 

FnForPutting  (LAMBDA  4  4)  — ) 

{The  value  for  each  of  the  FnFor—  is  a  function,  which  Is  used  by  some 
accessing  function  (eg  GetValue)  to  view  or  alter  a  value.} 


66*ok 

Nothing  changed. 

FSet 

36-(MAPCAR  (Examples  'AnySlotFormat)  ’FormatCharacter] 
((MayBeEmpty  SingleEntry) 

(MayBeEmpty  Ordered  Duplicates  ArbitraryNumberOfEntries) 
(MayBeEmpty  NonOrdered  NoDuplicated  ArbitraryNumberOfEntries) 
(MayBeEmpty  Ordered  NoDuplicated  ArbitraryNumberOfEntries) 
(MayBeEmpty  NonOrdered  Duplicates  ArbitraryNumberOfEntries) 
(MayBeEmpty  Ordered  Duplicates  ExactNumberOfEntries)) 


V 
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<<<<  8.  Adding  on  a  new  person  >>>> 

{Back  to  our  main  plot: 

Lot's  make  Visitor  think  of  itself  as  a  person.} 

0«EDITU(  Visitor] 
edit 
1 9*p 

(Isa  (AnyUser)  UserNames  ("NewUser")  ...  ) 

19*2  (n  AnyPerson] 

21*0  p 

(Isa  (AnyUser  AnyPerson)  UserNames  ("NewUser*)  ...  ) 

22*ok 

Verifying  slots 
Visitor 

{Note  I  could  have  made  AnyUser  a  subclass  of  AnyPerson, 
but  who  knows  who  (or  what)  will  eventually  be  using  RLL...} 

7-EDITU] 

■Visitor 

edit 

{Let's  give  our  visitor  a  mother:} 

23*(n  Mother  HIsMother] 

{(Note  this  should  NOT  work,  as  we  have  yet  to  define  "HIsMother"...)} 
28"ok 

Verifying  slots 

Trouble  doing  actual  Put  (Visitor  Mother  HisMother) 

Shall  I  go  on,  break,  or  edit  this  value?  Go 

Visitor 


<<<<  9.  Creating  a  new  entity  ~  HisMother  >>>> 

{So  let’s  create  that  unit.} 

8»Newlsa) 

Name:  HisMother 

Is  a  lExamples  of:  AnyPerson 

Please  enter  the  Knowledge  Base  In  which  to  store  HisMother:  GENLINFO 
*  Initialized  HisMother  * 
edit 
29*pp 

(Isa  (AnyPerson) 

Alllsas  (AnyCT&U  Anything  AnyPerson) 

Prototypes  (TypicalPerson  TypicalCT&U  Ty picalThing) 

MySlotsNowOrdered  (OrderedPrototypes) 

MyCreatedAs  (lExamples  (AnyPerson)) 

MyTimeOf Creation  "18-Aug-60  14:27:04" 

MyCreator  "NewUser" 

MySensibleSlots  (Oescr  Characteristics  Prototypes  AllSpecs  AllGenls  Alllsas  Isa 
OrderedPrototypes  Specializations  MySlots  MyCreatedAs 
MySensibleSlots  MySlotsNowOrdered  MyEssentlaiVIrtualSIots 
MyToRenameMe  MyToKillMe  MyTimeOfCreatlon  MyCreator  Husband  Mother)) 


29"ok 

Verifying  slots 


HisMother 


<<<<  10.  How  are  new  units  created?  >>>> 


37«PP(Newlsa] 

loading  from  <CS0.RIL>UTIL.7 

(Nowlsa 

[LAM80A  (Son  Parent  whichKS)  ••COMMENT'*  '’COMMENT** 

(NewUnit  Son  Parent  (QUOTE  lExamplea)  whichKB  T]) 

(Nowlsa) 

{So  what  la  "lExamplea} 

38«EDITU(  lExamplea] 

edit 

89*p 

(Isa  (Anylnheritance) 

Doscr  (Here  is  a  the  Inheritance  fo  creating  something  which  la  an  examples 
of  some  class.) 

UseToGetSiots  GenlsModels 
GetPossibieSlotsrn  Possible  Slot  sC'  ’Examples) 

{There  may  eventually  be  other  things  stored  here,  once  we  figure  out 
what  we  mean  when  we  say  "Inheritance".} 

69*o* 

Nothing  changed. 
lExampies 

{Are  there  other  inheritances?) 

39  -AllEx  amplest  Any  inheritance] 

(ITypEx  ISubClass  lExampie?) 

(What  is  that  PossitleSlctsCf lExampies?) 
39-EDlTU(PossibieSlotsCfl£xampieSj 
edit 
70*p 

(UsedBylnhentance  lExampies 
laa  (AnySlotGettcr) 

Format  FOrderedSet 

HighLevelOefn  (PutlnCrder  (CommonXProd  NewPossibleSlots 

(ApplyTocacn  MapUmon  GenlsModels) 
WherelnitFn) 

OrderForTolnit  CAR  Nil) 

...  ) 

(Wow  -  Icc*  at  that  HighcevelOefn!) 

72*o* 

Nothing  changed. 

Possible  Slot  sOfi  Exarces 

<<<<  1 1 .  Hack  to  LiSP's  evaluator  >>>> 

(To  see  our  collection  of  people:} 

9«Ex  amplest  Any  Person] 

(HisMother  Visitor) 

{  1)  That  is,  as  U  isa  was  tided  with  AnyPerscn, 

U  was  added  to  AnyPerson:Examples 
2)  Note  there  is  no  function  named  ’Examples". 

That  call  worked  because  we’ve  hacked  up  LISP's  evaluator  to  try 
(GetValue  U  ’S)  if  S(U)  fails) 


G-12 


1 0*-GETD(Examples] 

NIL 

{It  is,  of  course,  a  unit:} 

1 1  -Unitp(Examples] 

RLL 

(The  same  is  true  for  AllExamples,  shown  last  page.} 

<<<<  1 2.  Creating  a  new  datatype  -  GenderType  >>>> 

{Lets  now  create  a  new  datatype,  to  help  us  distinguish 

Males  from  Females 

First,  what  are  the  current  datatypes?} 

1  1  *-Examples(AnyOatatype] 

(KBType  TVType  NonNILType  GrammarType  NumberType  BooleanType  UnrestrictedType 
FunctionType  SlotType  IntegerType  UnitType  StringType) 

{We'll  create  a  copy  of  BooleanType,  then  modify  that  copy, 
using  the  function} 

1 2~NU(GenderType) 

Copy  from:  BooleanType 

Please  enter  the  Knowledge  Base  in  which  to  store  GenderType:  GENLINFO 
edit 

30*pp 

(Isa  (AnyOatatype) 

VerifyType  [LAMBOA  (x) 

(FMEMB  x  ( QUOTE  (T  F] 

GenerateAll  [LAMBOA  NIL  (QUOTE  (T  F] 

IsTypeOf  NoEntries 
SuperDT  (NonNILType) 

MyCreatedAs  (lExampies  (AnyOatatype))) 

{Apparently  the  function  stored  in  VerifyType  returns  nonNIL 
if  its  argument  qualifies  as  a  member  of  this  datatype. 

(We  could  have  found  this  out  by  looking  on  the  "VerifyType"  unit...) 
and  GenerateAll  returns  a  list  of  these  acceptable  vaiues.} 

30*(R  (T  F)  (Male  Female  Neuter  Hermaphroditic] 

34*PP 

(Isa  (AnyDatatype) 

VerifyType  [LAMBOA  (x) 

(FMEMB  x  (QUOTE  (Male  Female  Neuter  Hermaphroditic] 

GenerateAll  [LAMBOA  NIL  (QUOTE  (Male  Female  Neuter  Hermaphroditic] 

IsTypeOf  NoEntries 

{Everything  else  locks  right,  so} 

42*ok 

Verifying  slots 
GenderType 

{Note  another  way  of  doing  tills  would  be  to  create  a  new  class,  AnyGender 
and  have  a  unit  for  each  of  these  *  Male,  Female, ... 

This  was  how  Formats,  Datatypes,  Inheritances, ... 
were  all  handled. 

Let's  now  have  genders,  all  around} 

<<<<  13.  Engendering  our  visitor  >>>> 


13-EDITU(Vlsitor] 
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edit 

43*(-1  Gender  Male] 

(Showing  my  prejudices,  I'll  assume  this  visitor  is  masculine. 

Nets  there  Is  now  no  unit  named  Gender.  RLL  will  notice  that  also.} 

44*p 

(Gender  Male  Isa  (AnyUser  AnyPerson)  UserNames  ("NewUser")  ) 

44*ok 

Verifying  slots 

Your  attempted  slot  name  Gender  is  NOT  even  a  unit.  Should  it  be?  yes 

What  should  the  Isa  link  for  this  Gender  link  be?  P 

Please  enter  the  Knowledge  Base  in  which  to  store  Gender:  GENLINFO 

*  Initialized  Gender  * 

edit 

4S*p 

(Isa  (PrimSIot)  Alllsas  (AnySlot  AnyUnitListFn  AnyFunctlon  AnyCT&U  Anything 
AnyProcess  AnyStorableFn  AnyUnitFunction  PrimSIot)  Prototypes  (TypicalPrimSIot 
TypicalSIot  TypicalUnitFn  TypicolStoroblern  TypicaiFunction  TypicalProcess 
TypIcalCT&U  TypicalThing)  MySlotsNowOrdered  (OrderedPrototypes)  MyCreatedAs  ( 
lExamples  &)  MyTimeOfCreation  "18-Aug-30  14:43:27"  MyCreator  "NewUser"  Format  ( 

*0o*  FOneOf  FSingleton  FSet  Flist  FOrderedSet  FBag)  Datatype  (NonNILType) 

--) 

(Lets  fix  up  the  value  of  Oatatype,  us:ng  our  newly  created  one:} 

45*1  5  up  p 

...  Datatype  (NonNILType)  MySensibleSiots  (Descr  Characteristics  ...  )) 

47*(2  (GenderType] 

(I'll  also  indicate  that  only  people  can  have  genders,  using  the 
MakesSenseFor  slot:} 

49*(n  MakesSenseFor  (TypicalPerson] 

50*ok 

Verifying  slots 

What  should  the  value  of  GendenFormat  be?  FSingleton 
Visitor 

(As  Inverse(MakesSenseFor)  is  NewPossibleSiots, 

Let's  now  look  at  the  NewPossibleSiots  of  TypicalPerson} 

46*-NewPossibleSlots(TypicalPerson] 

(Gender  Mother  Husband) 

<<<<  7 4.  Indicating  that  Mothers  are  female  >>>> 

(Let's  now  specify  that  all  Mothers  are  female: 

First,  how  to  say  that  range  specification, 
look  at  the  UnitType  datatype.} 

47«-EDITU(UnitType] 

edit 

03*p 

(Isa  (AnyDatotype) 

VerifyType  Unitp 

IsTypeOf  (Husband  KBsConnectedTo  Isa  NewPossibleSiots  ...) 


Rangelnterpreter  UnitRange 
SuperDT  (NonNILType) 

SubDT  (SlotType) 

MyCreatedAs  (lExamples  &) 

Alllsas  (AnyCT&U  Anything  AnyOatatype)) 

93*f  Rangelnterpreter 
94*p 

...  Rangelnterpreter  UnitRange  ... 

{The  value  of  OT:Rangelnterpreter  is  a  function,  which  uses  a  slot's 
DataRange  value  to  compose  a  function.  That  function  is  used  to 
restrict  the  values  acceptable  for  that  slot.} 

94*2  p 
UnitRange 

{Lets  look  at  this  functions} 

95*ef 

loading  from  <CSD.RLL>RLL..6 

prop 

edit 

95*p 

(LAM80A  (rangespec  valname)  "COMMENT**  (AND  &  8.)) 

{Details  omitted  for  brevity.} 

95*ok 

not  changed,  so  not  unsaved 
UnitRange 

96*ok 

Nothing  changed. 

UnitType 

{What  is  the  current  range  type  of  Mother?} 

48-RangeType(  Mother] 

[FSIngleton  (UnitType  (*P  AnyPerson)] 

{That  Is,  the  vaiue  of  U:Mother  is  a  single  value,  which  Is  a  unit, 
which  descends  from  AnyPerson. 

Now  to  add  that  specification  to  Mother:} 

49*-EDITU(  Mother] 
edit 

97*f  DataRange 
98*2  p 

(*P  AnyPerson) 

99*mbd  (L-AND  *  (SlotVai  Gender  Female] 

100*p 

(L-AND  (*P  AnyPerson)  (SlotVai  Gender  Female)) 

{By  the  way,  there  is  a  unit  for  this  L-AND} 

1 00*EU 
edit 


100*p 

(Isa  (AnyLogicalOp) 


MyCreator  "CSD. GREINER" 

MyTimeOfCreation  "15-Apr-80  17:43:55" 

MyCreatedAs  ({Examples  &) 

Oefn  (LAMBDA  &  &)) 

1 00*ok 

Nothing  changed. 

L-AND 

1  *ok 

Verifying  slots 
Mother 

{Now  to  show  that  Mother's  RangeType  has  changed;} 

61  *-RangeType(Mother] 

[FSIngleton  (UnitType  (L-ANO  (*P  AnyPerson) 

(SlotVai  Gender  Female] 

<<<<  1 5.  Add  another  person  >>>> 

{Add  another  person  to  cur  <3} 

52«-Newlsa(Fred  AnyPerson  GENLINFC] 

*  Initialized  Fred  * 
edit 

2*p 

(Isa  (AnyPerson)  Alllsas  (AnyCT&U  Anything  AnyPerson)  Prototypes  (TypicalPerson 
TypIcalCT&U  TypicalThmg)  MySlotsNowOrdered  (OrderedPrototypes)  MyCreatedAs  ( 
lExamples  4)  MyTimeOfCreation  "18-Aug-80  15:03:25"  MyCreator  "NewUsar" 
MySensibleSlots  (Descr  Characteristics  Prototypes  AllSpecs  AlIGenls  Alllsas  Isa 
OrderedPrototypes  Specializations  MySiots  MyCreatedAs  MySensibleSlots 
MySlotsNowOrdered  MyEssentialVirtualSIots  MyTcRenameMe  MyToKillMe 
MyTimeOfCreation  MyCreator  Husband  --)) 

{Lets  engender  Fred} 

2"(n  Gender  Male] 
ok 

Verifying  slots 
Fred 


{As  a  side  comment,  creating  Fred  took  much  less  time  than  creating 
HisMother,  as  much  of  the  information  needed  to  create  a  new  example 
AnyPerson  was  cached  away  during  this  first  computation. 

This  was  true  In  general  -  the  first  time  a  new  unit  Is  created  using 
Inheritance  I,  from  the  list  of  parents,  P,  it  will  take  a  long  time. 
Subsequent  children  of  these  parents  will  created  and  Initialized  much 
faster.) 


<<<<  1 6.  Can  a  male  be  a  mother?  >>>> 

{Lets  see  if  we’re  allowed  to  make  Fred  a  mother: 

(Note  PutValue  returns  NIL  only  if  some  error  had  been  encountered.]} 
63*-PjtValue(Fred  Mother  Visitor] 

NIL 


{That  Is,  no  value  was  put  —  l.e.) 
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E8-UA-GETVALUE(Fred  Mother] 
NIL 


{[Note  UA-GETVALUE  is  like  GETPROP  -  no  smarts] 
We  now  show  PutValue  can  do  something: 

First,  let's  make  HisMother  Female:) 
69*-PutValue(HisMother  Gender  Female] 

Female 

70«-PutValue(Fred  Mother  HisMother] 

HisMother 

{Proof:} 

71  -UA-GETVALUE(Fred  Mother) 

HisMother 


<<<<  17.  Now  make  Husbands  male :  >>>> 


73-EDITU(Husband] 

edit 

1 9*f  DataRange 
20-p 

...  DataRange  (*P  AnyPerson)  ... 

20-2  MBO  (L-ANO  *  (SlotVal  Gender  Male] 

21*1  p 

...  (L-ANO  (*P  AnyPerson)  (SlotVal  Gender  Male)) ., 
22*ok 

Verifying  slots 
Husband 

{Just  to  check) 

76*-RangeType(Husband] 

[FSIngleton  (UnitType  (L-AND  (*P  AnyPerson) 
(SlotVal  Gender  Male] 


<<<<  18.  To  give  HisMother  a  Husband  >>>> 


76*-Newlsa) 

Name:  HerHusband 

Is  a  (Examples  of:  AnyPerson 

Please  enter  the  Knowledge  Base  in  which  to  store  HerHusband:  GENUNFO 
*  Initialized  HerHusband  * 

edit 

23*pp 

(Isa  (AnyPerson) 

Alllsas  (AnyCT&U  Anything  AnyPerson) 

Prototypes  (TypicalPerson  TypIcalCT&U  TypicalThing) 
MySlotsNowOrdered  (OrderedPrototypes) 


MyCreatedAs  ((Examples  (AnyPerson)) 

MyTimeOf Creation  ”1S-Aug-80  15:15:50" 

MyCreator  "NewUser" 

MySensibleSiots  (Oescr  Characteristics  Prototypes  AllSpecs  AIIGenls  Alllsas  Isa 
OrderedPrototypes  Specializations  MySlots  MyCreatedAs 
MySensibleSiots  MySlotsNowOrdered  MyEssentlalVIrtualSIois 
MyToRenameMe  MyToKillMe  MyTimeOtCreation  MyCreator  Husband  Mother 
Gender)) 

{Note  Gender  is  on  MySensibleSiots  now 
(of  course  it  wasn't  before  It  existed.]} 

23*(n  Gender  Male] 

24*ok 

Verifying  slots 
HerHusband 

77»PutVafue(HisMother  Husband  HerHusband] 

HerHusband 

{Now  HisMother;Husband  Is  HerHusband,  as  planned.} 

<<<<  79.  Create  a  new  type  of  slot  -  Father  >>>> 

78-SMARTARGUST(CreateSlot] 

(hid  kb  extra-pairs  name) 

{To  define  Father) 

78-(CreateSlot  '(Composition  Husband  Mother)  'GENLINFO  NIL  'Father] 

Father 

{To  see  If  it  worked:} 

79«Father(Fred] 

HerHusband 

(Lets  see  what  this  unit  really  looks  like) 

88*-E0ITU(Father] 

edit 

36*F  Defn 
37*2  pp 

[LAMBDA  (uNITcomp  sLOTcomp  oTHERcomp) 

(OR  (GetValue  (Get.Value  uNITcomp  (QUOTE  Mother) 

(AddOnCharacter  oTHERcomp  (QUOTE  VERYSAFESLOT))) 

(QUOTE  Husband) 

(AddOnCharacter  oTHERcomp  (QUOTE  VERYSAFESLOT))) 

NoEntry] 

38*ok 

Nothing  changed. 

Father 


<<<<  20.  There  Is  a  unit  tor  Composition:  >>>> 

26«-EDITU(CompositlonJ 

edit 

64*pp 

(Isa  (AnySlotCombiner) 

Descr  (Compose  SI  of  S2  of ...  of  Sn  the  unit) 
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FnForCaching  NoEntry 

FnForUpdating  [LAMBDA  (affectedslt  fulIHLD  changedsit  argnames  hold) 

(OR  [MAPCONC  (REVERSE  (CDR  fulIHLD)) 

(FUNCTION  (LAMB0A  (sit  morework) 

(PROG1  (COND 

[(LISTP  sit) 

(COND 

[hold  (AND  (SETQ  morework 
(UpdateASUIB 
sit  changedsit 
(CONS  (OUOTE  x) 

(CDR  argnames)) 
affectedslt)) 

(DoToEachFn 
(COND 
((COR  hold) 

(CONS  (QUOTE  Composition) 
hold)) 

(T  (CAR  hold))) 
changedsit  argnames 
(ConsN  (QUOTE  LAMBOA) 

(QUOTE  (x)) 
morework] 

(T  (UpdateASUIB  sit  changedsit  argnames 
affectedslt] 

[(EQ  sit  changedsit) 

(COND 

(hold  (InvalidatelnverseFn 
(CONO 
((CDR  hold) 

(CONS  (QUOTE  Composition) 
hold)) 

(T  (CAR  hold))) 

affectedslt  changedsit  argnames)) 

(T  (InvalidateFn  affectedslt  changedsit 
argnames] 

(T  NIL)) 

(SETQ  hold  (CONS  sit  hold] 

(LIST  NIL] 

Comb inerFor  (PossibleSlotsOfITypEx  AJilsas  AilExamplea  SuperTypEx"  SubTypEx*) 
Defn  [LAMBDA  (slotlist  args) 

(SETQ  slotlist  ([LAMBDA  ("SELF”) 

(APPLY*  (GetValue  (QUOTE  Composition) 

(QUOTE  ToParseParts) 

(QUOTE  (VERYSAFESLOT  VERYSAFEUNIT))) 
slotlist] 

NIL)) 

(PROG  (walker  answer  IsLIST) 

(SETQ  walker  (REVERSE  slotlist)) 

(SETQ  answer  (GetGetVal  (CAR  walker) 

(QUOTE  uNITcomp) 

(QUOTE  oTHERcomp))) 

[SETQ  IsLIST  (ListFormat  (HardFormat  (CAR  walker] 

LOOPfCOND 

((CDR  walker) 

(SETQ  walker  (CDR  walker)) 

(SETQ  answer  (ComposeAux  (CAR  walker) 
answer 

(QUOTE  oTHERcomp))) 


(GO  LOOP)) 


(T  (RETURN  (LIST  [LIST  (QUOTE  LAMBDA) 

(QUOTE  (uNITcomp  sLOTcomp  oTHERcomp)) 

(LIST  (QUOTE  OR) 

(IsOk  answer) 

(CONO 

(IsLIST  (QUOTE  NoEntrles)) 

(T  (QUOTE  NoEntry] 

[CONS  (CONO 

(IsLIST  (QUOTE  FSet)) 

(T  (QUOTE  FSingleton))) 

(COR  (RangeTypeOf  (CAR  slotlist] 

(OomainTypeOf  (CAR  (LAST  slotlist))) 

(QUOTE  PSEUOO-SLOT] 

FnForlnverting  [LAMBDA  (hldefn  temp) 

(AND  [EVERY  (COR  hldefn) 

(FUNCTION  (LAMBDA  (x  pmet) 

(AND  (SETQ  pmet  (InvertHLD  x)) 

(SETQ  temp  (CONS  pmet  temp] 

(CONS  (QUOTE  Composition) 
temp] 

RangeType  (FSingleton  SlotType) 

GetFnsUsed  [LAM80A  (hid  sc) 

(CONS  (CAR  hid) 

(MapUnion  (COR  hid) 

(FUNCTION  (LAM80A  (term) 

(AND  (LISTP  term) 

(GetAlIFNS  term] 

OefnUsedBy  (Alllsas) 

GetCVsUsed  [LAM80A  (hid  sc) 

(OR  [MapUnion  (COR  hid) 

(FUNCTION  (LAMBDA  (term) 

(CONO 

((ATOM  term) 

(LIST  term)) 

(T  (GetAIICVs  term] 

NoEntries] 

Alllsas  (AnySlotLIstFn  AnyStorableFn  AnyProcess  Anything  AnyCT&U  AnyFunctlcn 
AnyUnitListFn  AnyFunctional  AnySlotCombiner) 

Prototypes  (TypicalSIotCombiner  TypicalSIotListFn  TypicalStorableFn 

TypicaiFunctional  TypicaiFunction  TypicalProcess  TypicalCTSiU 
TypicalThing) 

MySlotsNowOrdered  (OrderedPrototypes) 

ToParseParts  (LAMBDA  (args)  (MAPCAR  args  (FUNCTION  HLDefnPerser] 

64*ok 

Nothing  changed. 

Composition 


<<<<  21.  Examples  of  SlotCombiners  >>>> 

{There  are  several  exising  slot  combiners:} 

6-(AIIExamples  'AnySlotCombiner] 

(Subsetting  CommonXProd  Intersecting  FirstOk  Starring  Application 
Composition  Trippie  OrderedStarring  OrderedComposition 
Unioning  OrderedUnioning  Plussing  OneOf  Soften  PutlnOrder 
Listing  Oonelndirectly) 

{This  class  belongs  in  a  subcategory  of  two  more  general  classes:} 
7»SuperClass(AnySlotCombiner] 

(AnySlotLIstFn  AnyFunctionaO 
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{The  first  contains  units  which  represent  functions  which  each  take  a 
list  of  slots  os  its  argument. 

It,  in  turn  is  a  subclass  of  AnyUnitUstFunction  •  l.e.  functions 
which  take  a  list  of  units  as  arguments. 

The  second  contains  those  "functions"  which  return,  as  a  value, 
another  function.  This  category  also  Includes,  for  example, 
logical-operators,  which  map  a  list  of  predicates  Into  a  new  predicate, 
which  returns  T,  e.g.,  when  each  of  those  predicates  would  return  T. 
Appendix  C  shows  these  classes  in  more  detail.} 

< <<<  22.  What  else  can  we  say  about  Father?  >»> 

90«-RangeType(Father] 

fFSIngleton  (UnitType  (L-AND  (*P  AnyPerson) 

(SlotVal  Gender  Male] 

{Let's  see  if  we’re  allowed  to  say  "HisMother"  is  someone’s  Father) 
91«(PutVaiue  'Visitor  'Father  'HisMother] 

NIL 


<<<<  23.  Far  too  quiets  >>>> 

Isn't  that  annoying?  it  would  especially  even  more  so  if  we  didn't  know 
why  this  function  failed. 

(Here,  It's  because  Father  must  be  Male,  and  "HisMother"  Isn't.] 

Let's  make  it  noisier  —  in  fact,  let's  create  a  whole  new  class  of  slots, 
which  are  more  Informative. 

To  see  how  it  will  work,  let  us  first  see  how  PutValue  really  works: 

<<<<  24.  How  do  accessing  functions  really  work?  »>> 

95«-PP(PutValue] 

loading  from  <CS0.RLL>UTIL..7 

(PutValue 

[LAMBDA  (uNIT  SLOT  Val  old  why)  ""COMMENT""  ""COMMENT”  ""COMMENT*" 
(APPLY"  (GetAccessFn  SLOT  (QUOTE  ToPutValue) 

(QUOTE  (VERYSAFESLOT)) 

(QUOTE  UA-OELSLOT)) 

UNIT  SLOT  Val  old  why]) 

(PutValue) 

{So  you  see,  it  basically  just  goes  to  the  slot,  end  asks  It  how 
put  a  value. 

It  applies  the  result  of  that  GetAccessFn  call  on  its  list  of  arguments) 

96«-PP(GetAccessFn] 
loading  from  <CS0.RLL>RLL..6 

(GetAccessFn 

[LAMBDA  (sLOT  thisslot  OTHER  dftfn)  ""COMMENT*"  ""COMMENT** 

(OR  (MEMB  (QUOTE  IMPURE) 

OTHER) 

(SETQ  uContext  SLOT)) 

(SET (CONO 

((MEMB  (QUOTE  IMPURE) 

OTHER) 

(QUOTE  uValue)) 

(T  (QUOTE  OTHER))) 


(OR  (IsOk  (UA-GETVALUE  SLOT  thisslot)) 

(isOk  (FindDefault  slOT  thisslot  OTHER)) 

(CheckOefn  (Warning  (CONCAT  “Unable  to  find  the  11  thisslot 
"  slot  ot  " 

SLOT  Perhaps  it  is  not  a  unit?"))) 

dftfn 

(QUOTE  NoOp]) 

(GetAccessFn)}} 

{Essentially  this  sees  if  there  is  a  value  stored  on  sLOT.-thissiot 
If  so,  It  uses  that  value.  Otherwise,  it  calls  FindDefault,  which) 


<«<  25.  The  FindDefault  function!  >>>> 


97- PP(Find0efault] 
loading  from  <CSO.RlL>RLL..fi 

(FindDefault 

[LAMBOA  (uUNlT  uSIOT  oTHERs)  “COMMENT” 

(AND  (Slotp  uSLOT) 

(MapUntilOk  [GetValue  uUNIT  (QUOTE  OrderedPrototypes) 
(AddOnCharacter  oTHERs 

(QUOTE  (VERYSAFESLOT  SAFE 
FAST-GET 
FAST-CACHE] 

(FUNCTION  (LAMBOA  (x) 

(FindValue  (UA-GETVALUE  x  uSLOT) 
x  uSLOT  oTHERs]) 

(FindOefault) 

{This  scans  through  the  unit's  OrderedPrototypes, 
returning  the  first  value,  V,  which  is  nonNIL.) 

98- (FindOefoult  'Father  'ToPutValue] 

DefaultPutValue 

(Note  this  is  the  value  stored  on  TypicalSIot.ToPutValue) 

100-EDITU(TypicalSlot] 

edit 

40*f  ToPutValue 
41  *p 

...  ToPutValue  DefaultPutValue 

AfterPutValue  DefaultAfterPutValue 
BeforePutValue  DefaultBeforePutValue 
BeforeGetValue  OefaultSeforeGetValue 
AfterGetValue  DefaultAfterGetVolue 
ToAddValue  DefaultArtdValue 
ToDeleteValue  DefaultOeleteValue 
ToKiHValue  OefaultKillValue 
ToSubstVaiue  OefauitSubstValue  ... 

(Note  also  BeforePutValue  and  AfterPutValue's  values) 


45»ok 

Nothing  changed. 
TyplealSIot 


<<<< 


26.  Strategy: 


»» 
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What  we  must  do  Is  intercept  this  FindOefault. 

First,  we  will  write  the  function  which  actually  prints  the  desired  message. 
Then  create  a  whole  new  class  of  types  of  slots,  which  will,  by  default, 
use  this  chattier  put  value. 

<<<<  27.  What  gets  done  when?  -  system  dependent  fns 

{First,  rewrite  the  appropriate  function,  to  report  Type  Errors 
Need  to  see  what  DefaultPutValue  does:} 

3«-PP(DefaultPutValue] 
loading  from  <CS0.RLL>RLL..6 

(DefaultPutValue 

[LAMBOA  (uNIT  SLOT  newValue  oldValue  why  sltputter)  "COMMENT** 
{{[OR  why  (SETQ  why  (LIST  (QUOTE  UserCommand] 

(OR  oldValue  (SETQ  oldValue  (UA-GETVALUE  UNIT  SLOT)))  }} 

(AND  (OR  (MEMB  (QUOTE  Fast-Put)  why) 

(APPLY*  (GetAccessFn  SLOT  (QUOTE  BeforePutValue)) 

uNIT  sLOT  oldValue  (CONS  (QUOTE  NewVai)  newValue) 
why)) 

[IsOk  (SETQ  sltputter  (GetValue  (GetVaiue  SLOT  (QUOTE  Format) 

(QUOTE  (VERYSAFESLOT  SAFE))) 

(QUOTE  FnForPutting) 

(QUOTE  (VERYSAFESLOT  SAFE] 

[SETQ  newValue  (COND 

((MustComputep  newValue) 

(UA-OELSLOT  uNIT  sLOT) 

RecomputeMe) 

((FormattedValuep  oldValue) 

(APPLY*  (GetValue  (ValueFormat  oldValue) 

(QUOTE  FnForPutting) 

(QUOTE  (VERYSAFESLOT))) 
uNIT  sLOT  newValue  oldValue  why  sltputter)) 
((FormattedValuep  newValue) 

(APPLY*  (GetValue  (ValueFormat  newValue) 

(QUOTE  FnForPutting) 

(QUOTE  (VERYSAFESLOT))) 
uNIT  sLOT  newValue  oldValue  why  sltputter)) 

(T  (APPLY*  sltputter  uNIT  sLOT  newValue  oldValue  why] 

(OR  (MEMB  (QUOTE  Fast-Put) 
why) 

(APPLY*  (GetAccessFn  sLOT  (QUOTE  AfterPutValue)) 

UNIT  sLOT  newValue  (CONS  (QUOTE  OldVal) 
oldValue) 

why)) 

newValue]) 

(DefaultPutValue) 

{In  effect,  this  first  calls  (GetAccessSlot  slot  'BeforePutValue) 
on  the  arguments. 

If  that  returns  nonNIL,  It  does  the  put, 

and  finally  (if  that  also  returned  nonNIL) 

calls  (GetAccessSlot  slot  'AfterPutValue)  on  the  arguments.) 

4*»GetAccessSlot(Father  BeforePutValue] 

DefaultBeforePutValue 


»» 


{Recall  this  appears  on  TypIcalSIot,  way  above.) 


S«FindOefault( Father  AfterPutValue] 
DefaultAfterPutValue 


(ditto) 

6-PP(DefauitBeforePutValue] 
loading  from  <CSD.RLL>RLL..6 

(DefaultBeforePutValue 

{{  [LAMBOA  (un  si  old  modif  why)  “COMMENT** 

(CONO 

([OR  (MEMB  (QUOTE  UserCommand) 
why) 

(MEMB  (QUOTE  UserEdits) 
why) 

(AND  (MEMB  (QUOTE  New-Unit) 
why) 

(NOT  (EQUAL  (COR  modif) 
old] 

(DefauItVerifyValue  un  si  old  modif  why)) 

(T  modif])}} 

(DefaultBeforePutValue) 

(Aha  -  DefauItVerifyValue  looks  like  the  function  which  attempts  to  verify 
that  a  value  is  reasonable. 

(Note  it  only  does  this  if  this  is  a  user  edit, 
as  it  trusts  its  own  puts...)} 

7«(DefauitVerifyValue  'Visitor  'Father  NIL  '(NewVal  .  HerHusband] 

8-<.DefaultVerifyValue  'Visitor  'Father  NIL  '(NewVal .  KisMother] 

NIL 


(Yep,  that's  the  place.  So} 


<<<<  28.  Creating  a  new  function  >>>> 

9«MOVO(DefaultBeforePutValue  ChattyBPV  T] 
loading  from  <CS0.RLL>RLL..6 

Please  enter  the  Knowledge  Base  in  which  to  store  ChattyBPV:  GENLINFO 
"ChattyBPV  defined  using  Interpreted  Code  for  OefaultBeforePutValue" 

{(Note  I've  advised  MOVO  to  be  smart  -  copying  the  source  code  rather 
than  the  compiled  code; 
and  asking  where  to  store  this  new  function. 

[This  is  a  simple  database  management  facility.] 

I  told  it  to  store  this  function  in  the  list  associated 
with  the  GENLINFO  kb.} 

1 0-EDITF(ChattyBPV] 
edit 

62*-1  2  p 

((OR  &  &  &)  (DefauItVerifyValue  un  si  old  modif  why)) 

63*- 1  p 

(DefauItVerifyValue  un  si  old  modif  why) 
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53*mbd  (OR  "  (PROGN  (WRITELNTTY  "Unable  to  put  "  (CDR  modi!)  "  onto  "  un 
si  "  because  of  a  type  error!!!")  NIL] 

55"pp 

(OR  (DefauItVerifyValue  un  si  old  modlf  why) 

(PROGN  (WRITELNTTY  "Unable  to  put  "  &  "  onto  "  un  si 
"  because  of  a  type  error!!!")) 

68*ok 

ChattyBPV 


<<<<  29.  New  class  of  types  of  slots  -  ChattySlots  >>>> 

{First,  let  me  show  you  NewSubClass:} 

93*-PP(NewSubC!ass] 
loading  from  <CS0.RLL>UTIL..7 

(NewSubClass 

[LAMBDA  (UNAM  UOLD  whfcbKB)  ‘"COMMENT**  “COMMENT** 

(NewUnit  UNAM  UOLD  (QUOTE  ISubClass) 
whichKB]) 

(NewSubClass) 

{Recall  "ISubClass"  was  an  Inheritance'  unit  we  saw  long  ago.) 

94«-NewSubClass) 

Name:  AnyChattySlot 
Is  a  ISubClass  of:  AnySlot 

Please  enter  the  Knowledge  Base  in  which  to  store  AnyChattySlot:  GENLINFO 

*  Initialized  AnyChattySlot  * 
edit 
39*p 

(Isa  (AnyClassOfObjects) 

Alllsas  (AnyCT&U  Anything  AnyClassOfObjects) 

Prototypes  (TypicalClass  TypicalCT&U  TypicaiThing) 

MySlotsNowOrdered  (OrderedPrototypes) 

MyCreatedAs  (ISubClass  &) 

MyTImeOf Creation  "18- Aug-60  17:03:13" 

MyCreator  "NewUser" 

TotalSoFar  O 
Superclass  (AnySlot) 

MySensibleSlots  (Oescr  Characteristics  Prototypes  AliSpecs  AIIGenls  Alllsas 
Isa  OrderedPrototypes  Specializations  MySlots  MyCreatedAs 
MySensibleSlots  MySlotsNowOrdered  MyEssentiaiVirtualSIots 
MyToRenameMe  MyToKillMe  MyTimeOfCreation  MyCreator  TotalSoFar  — )) 


39*ok 

Verifying  slots 
AnyChattySlot 

{To  make  every  example  of  AnyChattySlot  print  more  instructive  messages, 
(instead  of  just  returning  NIL,) 

we  hove  to  Intercept  FindDefault’s  search  for  BeforePutValue. 

This  will  happen  If  there  is  a  TypicalChattySlot,  which  has  a 
BeforePutValue  value  stored. 


So  now  to  create  that  unit:} 
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<<<<  30.  Create  a  new  typical  memter  of  AnyChattySlot  >>>> 

{Now  to  create  the  TypicalChattySlot  unit,  and  use  this  new 
ChattyBPV  function  tor  its  BeforePutVaiue  value) 

2-NewTyp£x(TypicolChattySlot  AnyChattySlot  GENLINFO] 

*  Initialized  TypicalChattySlot  * 
edit 
40*p 

(Isa  (AnyArchetype) 

TypIcalExampleOf  AnyChattySlot 
NewPossibleSlots  NoEntries 
...  ) 

41*(n  BeforePutVaiue  ChattyBPV] 

42*ok 

Verifying  slots 
TypicalChattySlot 

{New  all  examples  of  AnyChattySlot  will  report  such  errors.  Pf: 

First,  the  unaltered  Husband;} 

1 1  *>(GetValue  'Husband  'Prototypes] 

(TypicalVirtuaiSlot  TypicaiUmtFn  TvpicalStorabiern  TypicalProcess  TypicaiThing 
TypicalCT&U  TypIcalFunction  TypicalSiot) 

{Note  Husband's  Prototypes,  of  course,  omits  TypicalChattySlot) 

12-(PutValue  'Visiter  'Husoand  'HisMother] 

NIL 


{Now  move  Husband  over) 

13- (PutValue  'Husband  'Isa  '(AnyChattySlot] 

(AnyChattySlot) 

{Husband's  Prototypes  have  been  rewritten) 

14- (GetValue  'Husband  'Prototypes] 

(TypicalChattySlot  TypicalUnitFn  TypicalStorableFn  TypicalProcess  TypicaiThing 
TypicalCT&U  TypicolFunction  TypicalSiot) 

1 5- redo  1 1 

Unable  to  put  HisMother  onto  VIsitoriHusband  because  of  a  type  error!!! 

NIL 


{Ta  daaa!) 

1 6-Examoies(AnyChattySlot] 
(Husband) 


<<<<  3 1.  Conclusion  >>>> 

{That's  about  ail  for  now.) 

28-SYSOUT(DEMO] 

<3SCRATCH>DEM0.SXE.1 


29-LOGOUT] 
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It  is  now  1 8-Aug*80  17:37:40. 

Closing  DribbleFile  <CSD.IA>TRACE.AUG18.1 


0  ;  Now  in  the  monitor. 


